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Dentro do Apple 


Fita do Mês : LA (GRAVE SEUS PROGRAMAS 
CINCO VEZES MAIS 


Funções RAPIDAMENTE) 
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Programas para o seu 
TRBe-ra a nua 


ei ag 
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(E === 3) 


= me 


capim = 
JOGO DE GAMÃO 
16K 


Este programa apresenta o tabuleiro no 
video e utiliza o eficiente código de má- 
quina, permitindo 4 (quatro) mveis de 
dificuldades de jogo. | 


É ue 


LABIRINTO 
TRIDIMENSIONAL - 16K 


Jogo em trés dimensões, O jogador po- 
dera definir a dificuldade do Labirinto. 
O programa apresenta a posição do jo- 
gador em perspectiva. Em qualquer mo- 
mento é possivel pedir auxilio do com 
putador 


MATEMÁTICA | 

16K/64K Era 
Análise gráfica de lunções matemáti- 
cas, resolução de sistemas de equa- 
ções lineares (16K-51 equ s “95 
e e Calculo de in is defi- 
nidos. A 


TKADREZ Il 
16K 


Este jogo apresenta o tabuleiro e as pe- 
cas no video. Permite a escolha de ate 
7 níveis de dificuldade. O programa for- 
nece a Qualquer momento, a listagem 
dos lances efetuados, e armazena em 
fia a posição das peças. Ele podera re 


comendar a sua jogada Ai 
<A 


“dos todos os pontinhos 


mm 


MONSTRO DAS TREVAS 


TRIDIMENSIONAL - 16K 


Impressionante onde você deve 
evitar o monstro das trevas. Tudo em 3 
dimensões. 


INVASORES DO 
ESPAÇO - 16K 


Consiste de uma frota de naves invaso- 
ras extraterrenas, descendo no planeta 
Terra, Sua missão é destruir as naves 
invasoras dispondo da arma de raios la- 
ser, 


16K 


Jogo animado onde deverão ser apaga- 

espalhados em 

labirinto grama contém 15 ti- 
é será | o 


ue poderão ser 
Sombiatiios com Par PERCICLSEEUIA 


DEMOLIDOR 
2kK 

imado, tipo “fliperama”. O . 
dor deverá demolir uma parado, com 
uma bola que se encontra sempre em 
movimento, “0. e 


Es piso 
RALLY 
16K 
Emocionante corrida de rally em um la: 
birinto, onde poderão ser testados sua 
habilidade e seus reflexos. Para conse- 
quir seu intento, você deverá evitar car- 


ros-ataque e obstáculos em seu trajeto. 


Programa desenvolvido para cálcul 
numéricos em planilha. O usuário de 
ne as colunas, as linhas e as fórmulas 
aplicadas. Similar ao famoso Visicalc. 
De grande versatilidade, este programa 
permite a formulação de cálculos cien- 
tificos e comerciais, análise de tabelas 
numéricas e outras aplicações. 
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Editorial 


Nem só de pão vive o homem: de elo- 
gios também. Através de nossos corres- 
pondentes e viagens de amigos, vários 
exemplares de MICROHOBBY já estão cir- 
culando pelos Estados Unidos e pela Euro- 
pa. Isto sem contar alguns assinantes no ex- 
terior: poucos, mas motivo de muito orgu- 
lho! 

Pois bem, é incrível a reação quase uná- 
nime de espanto do pessoal lá de fora ao 
ver a qualidade gráfica e editorial da nossa 
revista (quando dizemos nossa, você está 
incluído !). 

Isso nos envaidece muito e queremos 
compartilhar com você este sentimento de 
orgulho. 

Para o aprimoramento desta qualidade 
contribuiram de maneira significativa as 
inúmeras cartas contendo preciosas suges- 
tões e críticas, e as colaborações de altis- 
simo nível de muitos leitores. 

Através destas cartas, por exemplo, sen- 
timos a necessidade de abrir mais uma se- 
ção: POR DENTRO DO APPLE. Muitis- 
simos leitores têm um TK em casa, mas 
na firma têm acesso a um UNITRON, um 
MICROENGENHO, um MAXXI, etc., to- 
dos compatíveis com o APPLE e gostariam 
de receber algumas dicas referentes a estes 
outros computadores. 

Outros leitores, pensando talvez numa 
profissionalização do HOBBY aprendido 
com o TK, nos solicitaram informações a 
respeito de computadores de maior porte. 
Isto nos motivou, inclusive, a pensar em 
abrir uma seção irmã à do APPLE dedicada 
aos computadores compatíveis com o 
TRS80. 

Tudo isso, obviamente, representará al- 
go mais para o usuário do TK a quem dedi- 
camos nossa revista, não implicando de for- 
ma alguma em perda de qualidade do ma- 
terial que ele recebe para seu pequeno gran- 
de computador. 

Por isso, pedimos: continuem escreven- 
do criticando, cobrando, colaborando, su- 
gerindo, ou até apenas elogiando: afinal 
nem só de pão vive o homem... 
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CARTA DOS 
LEITORES 


Prezados Senhores, 

Em primeiro lugar quero parabenizar a MICROMEGA 
pela excelente publicação mensal da MICROHOBBY, 
pois é uma revista que atende aos anseios de todos os 
usuários do TK, destacando-se os programas inéditos, as 
dicas e as novidades. 

Tenho algumas sugestões que acredito melhorariam 
ainda mais o nível da revista, que são: poderia ser criada 
uma seção para solucionar as dúvidas dos usuários do 
TK, tanto em software como em hardware; gostaria que 
fosse publicado um programa que informasse ao usuário 
o quanto de memória ainda resta durante a digitação de 
um programa extenso, este programa poderia ser uma 
sub-rotina do programa principal, ao qual o usuário re- 
correria sempre que achasse necessário. 

Desde já agradeço a atenção dispensada, 

Silvio Roberto Hantschel 


Prezado Silvio, 

Uma de suas sugestões já foi atendida: aconselhamos 
a leitura do MAPA DA RAM do TK na seção de Dicas e 
da análise da FITA DO MES. 


Prezados Senhores, 

Estou enviando anexo a esta, um programa com os 
comentários, para participar da seção “Quebra-cabeça”. 

Aproveito a oportunidade para solicitar alguns escla- 
recimentos. . . Os programas que recebi na fita-brinde 
necessitam que o computador funcione em “SLOW”. 
Meu computador (NEZ8000) só funciona em FAST. Na 
revista n9 (), pag. 6 foi anunciado que na revista nQ 1 se- 


ria publicado artigo mostrando como acrescentar afun- Byt 
ção “SLOW" ao computador. Porque não foi publicado? | 


ar 


Vocês não podem enviar instruções para eu fazer a mo 
dificação? Agradeço resposta, despeço-me. Atencio 


mente. je 
















lida na seção PEQUENOS ANÚNCIOS: o WILSON DE . 


ASSIS pode lhe fazer esta adaptação ou o JAN MAR- 
TIN LUND pode lhe fornecer o esquema. 


Prezados Senhores, 

Assinante que sou de MICROHOBBY, no final de ju- 
lho (28) recebi satisfeito, a fita brinde prometida na as- 
sinatura. 

Achei interessante o jogo da “Pulga”, entretanto, por 
mais que tentasse em todos os volumes, não consegui ro- 
dar o “Simulador”. Seguramente não está boa a fita. 

Dois ou três dias após foi-me entregue pelo Correio, o 
nº 2 da revista (excelente) e nele verifiquei a opção per- 
mitida aos novos assinantes; o desgravador Twin Go. Li 
também a informação de que o cassete estaria gravado 
dos dois lados, o que também não ocorre com o meu co- 
mo poderão constatar. 

Em razão do acima exposto remeto-vos anexa a esta, 
a fita em questão, para que seja examinada. 

Julgando-me no direito de receber um cassete com os 
dois lados gravados bons, como prometido na proposta 
de assinante, permito-me a liberdade de solicitar de 
V.Sas., desde que possível e sem prejuizo para a revista, 
a troca de brinde. Apesar da curiosidade muito grande 
em torno do Simulador que não conheço, para as mi- 
nhas aplicações, me seria muito mais útil o Twin Go. 

ide de minha expansão de 64K, 

0 PRINT PEEK 16388 + 

84 encontro: 48.896 
e V.Sas., atenciosamente. 
jrenzo C.B. Scaffa Falcão 
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TIG-LOADER possibilita: 


e a localização do ótimo volume do gravador, 
facilitando a operação LOAD. 

e DUPLICAR qualquer programa, mesmo aque- 
les “fechados”. 

e carregar (LOAD) e DUPLICAR simultanea- 
mente. 

e gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

Use Tig Loader O e monitorar as operações LOAD, SAVE ou 
DUPLICAÇÃO através de fone. 

e filtrar as interferências elétricas de baixa 

APENAS: frequência, que são a causa da maioria 
CR$ 15.000,00 dos problemas de LOAD/SAVE. 





APLICATIVOS PARA TK 


TIG-SCREEN: vinte e sete rotinas de vídeo, para incrementar seus programas! 
Inversão de vídeo, moldura, arquivo de imagens, rotação, scroll em quatro 
direções, etc... efeitos visuais incríveis! Em linguagem de máquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois é só utilizá-lo onde quizer! 

P/ 16K Com manual explicativo Cr$ 8.000,00 


TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
código de máquina. Rode-os na forma COMPILADA! Simples de usar, 
é só carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Você terá o seu programa em linguagem de máquina em 
instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 


TIG-SPEED: uma combinação de soft e hardware, permitindo uma transferência 
de dados micro/cassete de 4.200 bauds. Você poderá carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a função VERIFY. Facilimo de 
operar, compõe-se de cassete, interface e manual explicativo. 








P/16 e 48K Preço sob consulta. 
Envie seu pedido + cheque nominal cruzado EE á, 
Prazo de entrega: 15 dias <i> 
Mo. Rua Correia Galvão, 224 
Despesas postais incluídas nos preços ess CEP 01547 - São Paulo - SP 
Atendemos somente por carta TIGRE COM. DE EQUIP. P/ COMPUTADORES LTDA. 


ENDEREÇO 
CE na ESTADO 


PROFISSÃO. nn DATANASC. LE 
MICROCOMPUTADOR. 
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DESGRILANDO 


A EXPANSÃO PARA 64 K 


Prezados Senhores, 


Seria injustiça de minha parte, não acusar o recebi- 
mento da FITA BRINDE e muito mais, deixar de agra- 
decer-lhes pela mesma. O Programa “Simulador de 
VOO” é realmente fantástico. Por isso, e pelo que pro- 
mete a revista, acho que foi um bom negócio tornar-me 
assinante da mesma. 

Mas nós, amadores do Basic-TK precisamos mesmo de 
uma publicação de apoio, como promete ser a MICRO- 
HOBBY. E no momento, eu, em particular estou pedin- 
do ajuda a vocês. Trata-se de saber se existe algum pro- 
grama capaz de calcular com precisão a quantidade de 
memória (em bytes ou Kbytes) ocupada com determi- 
nado programa, pois é muito desagradável, ao se digitar 
um programa longo, ver “estourar” a memória do com- 
putador. Assim, podendo ''medir” a quantidade de me- 
mória ocupada, torna-se prático e mais fácil trabalhar, 
mesmo quando se tem uma expansão de memória de 
64K, como é meu caso. Mas já me aconteceu de perder 
programas quase no final do serviço. E aí, como se faz? 
Não adianta “esquentar” a “cuca”. 

No meu caso, as coisas são piores. Explico: no livro de 
Délio Santos Lima, “45 PROGRAMAS PRONTOS 
PARA RODAR EM TK-82C e NE 28000" (Livraria Po- 
liedro — 32 edição), há na página 4, umas dicas para se 
obter o número de bytes ocupados pelo programa, que é 
a seguinte: 


PRINT PEEK 16396 + 256 * PEEK 16397 — 
16509 


4 MICROHOBBY 
Eai = am diem 





e há também variáveis e display: 
PRINT PEEK 16404 + 256 * PEEK 16465 — 16509 


Recomendando usar o comando diretamente como 
indicado, e NEW LINE. No final da listagem do progra- 
ma, é claro, e sem etiqueta. 

Após ter digitado um longo programa, fiz o comando 
conforme indicado e o resultado foi de 15,960 Kbytes. 
Com esse resultado, fiquei tranquilo e prossegui com 
mais umas 8 linhas de programa (+ ou —) e foi aí que 
aconteceu a BOMBA. O computador limpou tudo e fi- 
cou a tela com traços horizontais que depois rodavam na 
tela, etc, etc. Será que os amigos podem me dizer algu- 
ma coisa, se a EXPANSÃO QUE POSSUO É DE 64K? 
E PORQUE QUANDO O PROBLEMA ESBARROU OU 
TENTOU ULTRAPASSAR OS 16K, a memória estou- 
rou? Ou será que o programa do DÉLIO SANTOS LIMA 
não está correto? Ou será que a MICRODIGITAL está 
trapaceando, vendendo gato por lebre? Gostaria que os 
amigos me ajudassem, pois a memória que vai estourar 
agora, será com certeza a minha. 

Para uma resposta mais rápida, mando um envelope 
selado. Mas se considerarem esse caso de importância 
(pode estar acontecendo com outros TK) podem dar a 
dica através da revista, o que seria de grande utilidade 
talvez, para outros usuários do TK. 

Em próxima oportunidade, voltarei com programas 
de utilidade COMERCIAL, de minha autoria para cola- 
borar com a Revista MICROHOBBY; no momento, os 
mesmos estão sendo testados, afim de evitar que surjam 
problemas ou erros durante a execução. 

continua 


— em e > "——— . 0º" ma 


Por falar em teste, peço a atenção dos amigos, em 
especial do Sr. PIERLUIGI PIAZZI, para o fato de que 
estamos aqui desenvolvendo um programa, apelidamos 
provisoriamente de “GH” (Geração Humana). Parece 
pura maluquice, é o que todos pensam (quando peço 
ajuda) quando dizemos que o programa destina-se a 
fazer a PREVISÃO DO SEXO DO BEBÊ que irá nascer 
de determinada mãe. A ajuda que pedimos, é que as pes- 
soas forneçam as datas completas de nascimento (só da 
MÃE, é claro), bem como as datas dos filhos que já hou- 
verem nascido. Agora, enquanto estamos em fase de ex- 
periência com o programa, queremos saber o percentual 
de erros e acertos, em 1000 casos, com um desacerto 
apenas. Para nós, isso já representa alguma coisa. Mas 
precisamos de mais dados, como conseguir? Preferimos 
lidar com pessoas desconhecidas. A pesquisa funciona 
da seguinte forma: A pessoa (Mãe) nos fornece o dia, 
mês e ano de nascimento, e as datas também dos filhos 
que já nasceram e o sexo. O computador irá então fazer 
o cálculo, que irá confirmar o sexo dos que já nasceram, 
dizendo então qual será o sexo do próximo que irá nas- 
cer. O que realmente nos interessa no momento é essa 
confirmação do sexo dos já nascidos. Pois será esse índi- 
ce que determinará a validade ou não, do programa. 

Creio que os amigos poderiam dar-nos uma “colher de 
chá”, publicando um anúncio pequeno na MICRO- 
HOBBY pedindo aos usuários do TK, que enviem nome, 
data de nascimento, do usuário, da esposa e dos filhos 
todos — inclusive se houver algum já falecido. Ou caso 
de aborto; as datas desses também devem contar. Esse 
material poderia ser enviado para: 


CRM — Cx. Postal: 43 
68250 — Óbidos — PA 


Acho que assim, dentro de pouco tempo teríamos 
mais uma vitória do BASIC TK, além de testar a recepti- 
vidade da nossa nova revista, que terá que crescer mais, 
muito mais ainda, e do que temos certeza, essa é a inten- 
ção dos Senhores. 


Roberto R. Malcher (Óbidos — PA) 


Caro Roberto, 

Vamos começar pelo fim: você não está ocupando 
nosso “precioso” tempo. Pelo contrário! Você está dan- 
do uma valiosíssima contribuição para a revista e para 
seus leitores, apresentando os grilos que voce apresentou. 

Vamos agora ao seu esclarecimento: 

1) MEDIDA DOS BYTES OCUPADOS PELO PROGRA- 
MA — As dicas fornecidas no livro do DÉLIO estão mais 
que corretas. Para maiores detalhes sobre o significado 
do que você digitou aconselhamos uma rápida leitura na 
seção DICAS da matéria “O MAPA DA RAM DO TK” 
que foi elaborada por causa da sua carta! 

Estude com particular cuidado a variável RAMTOP na 
dica citada para poder entender o esclarecimento do gri- 
lo seguinte. 

A EXPANSÃO PARA 64K — Quando você conecta a 
expansão para 64K no seu TK82, a memória passa a se 
organizar como segue: 





ENDEREÇO 1K =2!º = 1624 


() OK 
8192 BK 
16384 16K 
24K 
32K 
adK 
48K 
56 K 
64K 


32768 


65536 


O sistema operacional do TK foi projetado, original- 
mente, para não aproveitar como RAM os 8 Kbytes mar- 
cados como RAM 1. Além disso, as primeiras máquinas 
construídas tinham uma ROM que previa uma expansão 
até 16K no máximo, ou seja, a RAM 2 que vai até o en- 
dereço 32768. Isto produz três problemas facilmente so- 
lucionáveis: 

A variável RAMTOP do seu TK assume, provavelmen- 
te, o valor máximo de 32768. Quando você conecta sua 
expansão de 64K o computador “pensa” que tem ape- 
nas 16K de RAM e por isso acontecem coisas estranhas 
ao atingir o limite de 16K. 

A solução deste problema é extremamente simples: 
basta contar ao computador, assim que a memória foi 
conectada, que ele pode chegar até o endereço 65535. 
Isto é feito através de um comando direto [conforme in- 
dicado no manual de instruções de expansão para 64K). 


POKE 16389,255 


Ao receber este comando, a variável RAMTOP, cujo 
valor está armazenado nos bytes de endereços 16388 e 
16389, mude seu valor: 


ANTES DO 
POKE 


DEPOIS DO 


Para calcular o valor do RAMTOP, multiplicar o valor 
armazenada no byte 16389 por 256 e somar o valor con- 
tido no byte 1636868. 

Se você quiser, portanto, todos os bytes a que tem di- 
reito, digite também 


POKE 16388,255 


que o valor de RAMTOP sobe de 65280 para 65535. | 
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LIVROS PARA TK, NE Z, CP 


TRINTA JOGOS 


INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 


JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE, PAREDÃO, 
DEMOLIDOR, VELHA, [ASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO, SENHA, BAN 
CO IMÓBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC.... 


LANÇAMENTO CR$ 4.000,00 


APLICAÇÕES SERIAS 


FOLHA DE PAGAMENTO, BALANCETE, CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA, TABELA PRICE, ESTA- 
TÍSTICA, CORREÇÃO DE PROVAS, EDITOR 
DE TEXTOS,RAM TOPER , SUB-ROTINAS 
EM CALSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 


CR$ 4.800,00 


45 PROGRAMAS 


ARQUIVOS, ESTOQUE, PLANO CONTÁBIL , 
AGENDA TELEFÔNICA, INVASORES, APAGUE 
A TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
CONVERSÃO DE COORDENADAS, MÉDIA, FI 
BONACCI, PROGRESSÃO, BIORRÍTMO , RE 
NUMERADOR DE LINHAS EM CÓDIGO, ETC. 


78 EDIÇÃO Cr$ 4.000,00 


MICRON 


ELETRÔNICA COMERCIO E INDUSTRIA LTDA 
Av.S Joao 74 Telefone 224194 -S. Jose dos Campos 
Est. de Sao Paulo 
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Quando você for elaborar programas específicos para 
serem usados com expansão de 64K é conveniente colo- 
car os dois POKEs como primeiras instruções do progra- 
ma, no caso do usuário ter um dos primeiros TKSs. 

O segundo problema é referente aos 8K da RAM1. 
O sistema operacional do TK simplesmente os ignora 
pois ele organiza a RAM a partir do endereço 16384. Is- 
to pode ser considerado, a primeira vista, como uma des- 
vantagem, mas com um pouco de cuca e habilidade pode 
ser transformado numa coisa maravilhosa: Quando se dá 
um NEW ou um LOAD, toda a RAM é apagada, mas o 
que estiver na RAM 1 está a salvo! Você pode, por 
exemplo, transferir para este esconderijo um arquivo de 
um programa, carregar de fita um segundo programa 
apagando o primeiro e utilizar o arquivo no segundo. Po- 
de armazenar uma dúzia de telas para serem chamadas 
oportunamente, e assim por diante. Obviamente a utili- 
zação mais proveitosa deste nicho de 8K é a localização 
de rotinas em linguagem de máquina, expandindo o pró- 
prio sistema operacional do TK. 


É claro que só podemos escrever nestes 8K através de 
POKE e só podemos ler através de PEEK. 

O terceiro problema é referente ao arquivo da ima- 
gem: ele não pode ficar “a cavalo” do endereço 32768. 
Isto significa que ele não pode estar armazenado parte 
na RAM 2 e parte na RAM 3. 


Quem desloca a posição do arquivo da imagem na me- 
mória é o comprimento do programa. Quando este é 
muito extenso, o arquivo pode ficar na posição crítica 
citada (talvez essa seja a causa do seu problema). 


A solução é encompridar artificialmente o programa 
em algumas centenas de bytes (com uma linha REM, por 
exemplo) de maneira a fazer o arquivo de imagem cair 
inteiro na RAM 3. 


3) PROGRAMA COMERCIAL E ESTATISTICO — Esta- 
mos esperando ansiosamente seu programa COMER- 
CIAL fe os leitores também), enquanto nadarmos num 
mar de FORCA, SENHA, JOGO DA VELHA e DESE- 
NHANDO NA TELA! 


Com relação ao programa GH achamos a proposta tão 
interessante e merecedora de apoio que preparamos um 
apelo especial na pág. 33 . 

Esperamos que estas respostas tenham sido úteis para 
você e para os leitores com problemas análogos. Um 
abraço. 


PIERLUIGI PIAZZI 


o 
q. e tua 


—— ——— 


e 


, 








Muitos felizes possuidores de um TK82 começaram a 
ser roídos pelo verde micróbio da inveja quando viram 
um TK85 gravando e lendo programas a uma velocidade 
incrível, usando o HIGH-SPEED. Esta inveja se torna 
mais intensa quando percebem que não se trata só de al- 
terar a velocidade de transmissão de dados, mas sim de 
acrescentar filtros e amplificadores. 

Para amenizar esta inveja estamos publicando um “'pa- 
liativo”: o PENTASPEED. Como o nome sugere, o 
PENTASPEED é uma rotina (em ASSEMBLY) que per- 
mite ler e gravar programas com uma velocidade cinco 
vezes maior que o usual. 


Esta velocidade é suficiente alta para valer a pena o 
trabalho de inserir a rotina no computador com 160K, 
mas suficientemente baixa para não exigir nada além de 
um gravador razoável e fita de boa qualidade. 

Inicialmente digitamos o programa A da fig. 1, to- 
mando o cuidado de inserir pelo menos 282 “zeros” na 
linha 1 REM. 





PROGRAMA AR 

1 REM 29092099002090299002220209299€ 
000000092290929260000990902229202009000 
20929220900009000020220029000939902090€ 
939990009090922992222090902929222220 
3999090999229299023993999200229222299G 
2002020029902090209200902092909292092009290920 
22020900220020699029D0OD0OBBDOBLBADE 
2202802000€2930009900092992222200220090G 
cp 


PRINT “ENDERECO INICIAL?” 
UE E 


PRI 
92 POKE 
NEXT T 
SCROLL. 


PRINT “FIM 





A velocidade deste programa não é compatível com 
o HIGH-SPEED, não permitindo aproveitamento de fi- 
tas gravadas nesta velocidade. Em compensação ele pode 
ser carregado num TKB85, que passará a ter 3 opções de 
velocidade de transmissão de dados. 


Ao rodar este programa ele pede o endereço inicial. 


PROGRAMA DO MÊS 


PENTASPEED 
Se ves, SOS 


Devemos digitar: 


16514 


a seguir toda a lista de códigos decimais da fig. 2. O pro- 
grama, através do POKE da linha 90 irá substituindo os 
“(B" da linha REM pelos bytes da rotina em linguagem 
de máquina. 


Se você errar algum byte não tem problema: digite 
STOP e NEW LINE interrompendo o programa. A seguir 
comande RUN e indique como endereço inicial o último 
em que você digitou corretamente. 





LISTAGEM DOS ENDERECOS E CODIGOS 
DECIMAIS DA ROTINA PENTASPEEOD 


FRRA INSERIR NA LINHA 1 REM 
185T14...225 16515. ..353 
ISS 1€:. z . 15 16SI1?. e Es 
13218... .6 J6S1a,. . «127 
168320. «. «285 16322... «43 
186522. ..127? 16523. «. 225 
155 “e. 16325. .. 15 
16525... . 2021 16927... 2RGS 
163258. ..35 163292, . «15 
1653 = SS 16S31...23 
16532... .127 165333. ..34 
16534 ...22 16525. «. «64 
165936. «. «225 1609327. .«.  l1I2 
1693938. «. «127 16539... .2285 
16540...43 16541... 15 
16542...201 16543... 11 
1boSd o... «1d 16243. . «li 
1654 E o. q 16347. e . 
16548...8 16549...8 
16550. ..8 1€5351...& 
10552... «2853 163033... 16& 
16504 ..«3 1620553. ..55 
16556. ««249 16557. «.23S 
1685. . .«1? 165359. « «22% 
iBEoEt...I1s 16S6e1...2%S5 
21656Z. 2... ?QB 18562... 15 
15864 ...48 16565. ..45., 
ISEGE. . == 16 16J&O? = . «2542 
13885... .«&? 16363. «. 1l&Zz 
15878. . .«.179 165371. .«à2 
LES7E.. 244 16573. . «225 
15874 aa E da ZODS 75 “ * 127 
1SE7E...2os 163º? .«. « «126 
26TD7/Eas..35 16373, ..«4& 
205838, . . 248 16352). .««G3 
2653€ 2.2.1.9 16333... «64 
1hESa a. Ses 16335 “a. 7a 
JSOS€C. ..12? 16387. «es. 2êT 
fig. 2 
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pe JEM LO O fo md A 


Cá CiEnho 
E Pe] 
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Cut 
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PR Ai 
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Ao terminar esta tarefa apague todas as linhas do pro- 
grama A, menos a 1 REM, agora toda cheia de uma es- 
tranha sequência de caracteres. A seguir digite as linhas 
de 16 a 76 do programa B (fig. 3). 





PROGRBOMA B 


à REM LN E SA FERN Fº7ZTAN L 
N 725 —RNDLN N FZTAN “e” 
ROND FOR J0CS >LN 72KI 
à POKE LN “2HACSA RNDL 

N “E NEU UNPLOT É » SAQUE ?RACS «COS 
E 7 < RETU 






( PRINT SEN da RETURN ?KEZACS JK 
BIT N ; INT £EyP? ( RETURN 7% 

ND STEP  GOSUB MS corr e 
2900 COROS BOBS GURO OG BOBBBSGO 


a 
18 SAVE “PENTASPEED" 
29 PRINT TAB 8;” 


O PRINT ,,,,,,5"P” GRAVAR DIGI 
TE RAND USR 325127 

42 PRINT “P/CARREGOR DIGITE RA 
ND USR 32525" 

50 PRINT “PERA GUARDAR ESTA RO 
TINA NO FIM DA RAM DIGITE GUAaAL a 
VER LETRA" 

62 PAUSE 28000 
72 RAND USR 16738 


Prepare uma boa fita, coloque o gravador na posição 
gravar e comande RUN. O programa B vai se gravar 
(devido à linha 10) e a seguir já se inicia (fig. 4). 





P> GRAVAR DIGITE RSND USR 225618 


DA RAM DIGITE QUALQUER LETRA 


Ao digitar qualquer letra o programa abaixa o valor 
da RAMTOP de uns 250 bytes e transfere para esta re- 
gião reservada o código de máquina contido na linha 
1 REM. A seguir o programa se autodestrói, e o compu- 
tador fica com a RAM aparentemente vazia. Não se as- 
suste: a rotina está escondidinha no topo da RAM e a 
única maneira de tirá-la de lá é desligar o computador. 
Pegue uma qualquer de suas fitas já gravadas e passe um 
programa para o computador. A seguir coloque uma fi- 
ta virgem no gravador, digite: 





RAND USR 32512 


Coloque a fita rodando com o gravador em REC e di- 
gite NEW LINE. Seu programa está sendo passado para a 
fita em PENTASPEED. 

Rebobine a fita, digite: 


RAND USR 32525 


e NEW LINE. 
Ao passar da fita para o computador um programa de 
5 minutos demorará apenas 1 minuto. 
(6) 


EPT TU UUDCC EEE ETTEUOO Ester EEE ECT EEESErErTo 
NR DERRETE PRECE RI RANA SE Did ARE LERA 
III LI III III II Ii ilonl gicisacIRAM EST IT II. 
AI III II II II TI RAI TI III II amil icaseRarAaBIoNET TI] TI 
IIllIillamlLITIIlI ALII II iIi iobld opaBasPasBsL |] TT 
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FERRARA VEN QUERER SERRÃ AO RARE áFER 
rs Ta e 


NEN * AM AslinNgigotoia VA MINANI ISA GRE Big 
nana AME A NANA EE Dt 
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MIMI FIL VAIS ERRA | LS BRA Se] | >ISS | 
TUNA LILI A LIM/I IA Ione ondas ESP CID | 
A foo III V/VI IIS IIsRia ERR ASPEA IgBê | O |qo] | 
AMIASNIAI INI Iran DEBSBoBIA IgEB | Gde | 
HAI IV VE ll ly | IoRVEg eo sadaPãa LSI| PISA | 
Ji AN III IN oEtadonsagasig SR$| Gois | 
ISIAVIINILIAS: Cigptiestdo E SSD) 
AAA Sede ESDasFres oa | É Sel | 
SEPSágósdo SES | Pos | 
ep fachãs ks ge 
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SS 


CURSO DE EB “JIABIS FIL JC") TK 


aula 4 


Até agora, aprendemos a programar o computador pa- 
ra que ele executasse várias ordens seguidas; entretanto, 
durante a execução, ele só escrevia coisas na tela, fazia 
cálculos ou “buscava” coisas em suas memórias; em 
outras palavras, ele apenas “falava” mas sem “escutar”! 
É como, por exemplo, dizer a uma pessoa: (programá-la): 
fale os 1) primeiros números pares! Durante a “exe- 
cução” da ordem, ela não necessitará nos ouvir, apenas 
irá dizer os números. Agora experimente dizer a essa 
pessoa: eu quero que você some 2 números! Ora, o que 
ela irá fazer? Ela terá que PERGUNTAR quais são os 
números e “parar sua execução” até que você diga a ela 
quais são os mesmos! Analogamente, no computador, 
existe uma instrução que faz com que, durante a exe- 
cução, ele PARE e espere que você coloque um número 
através do teclado! Esta instrução está na tecla |: 
INPUT. Vamos então fazer com que o computador nos 
pergunte 2 números e a seguir os some: 


12 INPUT A 
2e INPUT É 
30 PRINT A+B 


CONVERSE 
COM 
PROFISSIONAI 


ASSESSORIA 


Antes da escolha de seu micro, 
nos diga- qual o seu problema. 
Nós o orientaremos 
na escolha do micro CERTO 
para você 
ou sua empresa. 





SOFTWARE 


Linha completa 
de software aplicativo. 
Desenvolvimento de software 
específico para sua 
necessidade. 
Linha completa de programa 
para TK e CP-200. 


CURSOS 
BASIC |, BASIC AVANÇADO 


- Excelente material didático, 
no máximo 10 alunos 
por classe e 1 micro 


SHOW ROOM E VENDAS: para cada 2 alunos. 


DATA SOLUTION 


VENHA NOS VISITAR 
AV. EUSÉBIO MATOSO, 654 - CEP 05423 - SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 


FONE: 813-3355 
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Execute o programa. A tela fica em branco apenas 
com o cursor :; não entre em pânico. Ele está obede- 
cendo suas ordens. A primeira instrução diz para ele 
PARAR e esperar que alguém digite um número para a 
seguir colocá-lo na variável A na memória. Coloque 
então o número DG e a seguir NEW LINE. Novamente 
a tela fica em branco; ora, ele está agora esperando o se- 
gundo valor. Digite 20 e NEW LINE; finalmente obtere- 
mos a soma. . . Note entretanto que a tela em branco é 
um inconveniente que pode confundir bastante, princi- 
palmente se o programa for razoavelmente complicado. 
Portanto, é útil escrever algumas “mensagens”, princi- 
palmente se o seu programa irá ser usado por alguma 
outra pessoa; essas mensagens NÃO interferem na lógica 
do programa, apenas ajudam a sua INTERPRETAÇÃO 
durante a EXECUÇÃO do mesmo; experimente então 
o seguinte: 


ciais PRINT “EU VOU SOMAR 2 NUMER 
PRINT "“OUAL O PRIMEIRO *º” 
10 INPUT A 
18 PRINT “QUAL O SEGUNDO 2º“ 
20 INPUT 6B 
25 PRINT “A SOMA EP “; 
30 PRINT A+B 


Execute o programa. Note que as linhas 4, 8, 18e 25 
são apenas MENSAGENS. Acrescente então as seguintes 
linhas: 


6 PRINT 


22 PRINT 


Supondo, por exemplo, que você entre com os núme- 
ros 60 e 4) teremos na tela: 


EU VOL 
SUAL O 
Aa 


SOMAR 2 NUMEROS 
PRIMEIRO ? 


QuAL O SEGUNDO * 
a 


a SOMS EE 196 


Como você faria para os números 60) e 40 aparece- 
rem não em baixo da pergunta mas IMEDIATAMENTE 
ao lado da mesma? E para que eles aparecessem na mes- 
ma linha da pergunta mas na METADE da tela? (Lem- 
bre-se do efeito do “;” e da "',"; basta colocá-los con- 
venientemente nas instruções 8 e 18). 

Tenha então sempre em mente que, ao programar um 
computador, 3 cérebros estão em jogo: o seu, o do com- 








IRIT 
INIT 





O mais recente lançamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 
Emocionante aventura onde você conduzirá o 
sapo desde o ponto de partida, até uma casa vazia. 
Você deverá cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo e entrar para a galeria de recordes do 
pulo do sapo basta enviar carta com seu nome e 
endereços completos, anexando cheque de Cr$ 
5.690,00, nominal à MULTISOFT INFORMÁTICA LTDA. - 
Cxa. Postal 54.121 - CEP 01296 - São Paulo - SP 


Do 


pr 
INFORMÁTICA LTDA. 





cor GARE! 
ENTREGO 


putador e o da pessoa que irá usar O programa. É por 
isto que as “mensagens” são fundamentais. 

Vamos agora apresentar outra KEY-WORD: trata-se 
do CLS (tecla V); acrescente a linha: 


es CLS 


O que acontece? Esta instrução APAGA tudo o que 
havia sido escrito na tela até então. Note entretanto que 
fica difícil ver o efeito da instrução PRINT B pois apaga- 
mos a tela logo em seguida. Para evitar isto, seria neces- 
sário uma “espera” ou pausa antes que ele executasse 
essa instrução; acrescente então a linha: 


aá4 PAUSE 126 (LETRA M) 


e veja o que ocorre. Esta instrução acrescenta uma 
PAUSA ao programa onde para cada SEGUNDO de es- 
pera devemos adicionar 60; no caso, a pausa é de 2s; se 
eu quizesse uma pausa de 3.5s deveria colocar PAUSE 
210. Note que durante um INPUT quando o computa- 
dor está “parado'' esperando um número, não adianta 
fazer BREAK para apagar o programa, pois ele já está 
parado; assim, se você quer interromper, deverá pres- 
sionar STOP (SHIFT e tecla A) e a seguir NEW LINE. 


Cabem aqui algumas informações quanto à precisão 
do computador; ele só reconhece 8 dígitos diferentes de 
zero. De fato, usando o programa anterior, tente somar 
111111111 com Q; você verá que é apresentado um re- 
sultado ERRADO pois estamos acima da precisão para 


este tipo de NOTAÇÃO de números; note entretanto 
que se o resultado tiver zeros no final ele é capaz de re- 
presentar até a 132 casa; some 999999,999999 com 1 e 
o resultado estará correto. Se quisermos números maio- 
res, outra notação terá que ser utilizada; tente somar: 
9.999.999.999 com 1; você obterá 1E + 13 que significa 
1 x 10!?; assim o computador é capaz de interpretar nú- 
meros com mais de 8 dígitos desde que usemos esta no- 
tação. O mesmo é válido para números muito pequenos. 
O maior número em valor absoluto que o computador 
TK aceita é: 


1.7014118E + 38 
e o menor em valor absoluto (o mais próximo de zero): 
2.9387359E — 39 


Vamos fazer um programa que utilize as instruções 
aqui apresentadas, e mais uma função que está na tecla 
G (ABS) que serve para calcular o valor ABSOLUTO de 
um número, ou seja, seu módulo; para entendê-la, expe- 
rimente antes fazer este pequeno programa: 


18 FOR I=iô TO -18 STEP -1 
28 PRINT TAB (ABS I);I 
2 NEXT I 


Que tal o efeito? 


Feito isto, iremos então fazer um programa para 
“treinar a tabuada”, que pergunte para você o resultado 
de uma operação de multiplicação usando números 
“centrados” por ele escrevendo a sua resposta, a respos- 
ta do computador e a diferença entre elas em valor 
absoluto. Vamos fazer com que ele pergunte também 
qual o valor máximo dos números que ele deve multi- 
plicar: 


12X RaND 

2? PRINT “EU VOL PERGUNTAR A U 
OCTE SURBNTO VALE O PRODUTO DE 2 
NUMEROS 

Sa PRINT “QUAL O NUMERO MAXIMO 
GUE EU POSSO USAR 2" 


42 INPUT MAX 
a 


32 CL 
Ea a? agia SR o srs LRP =MAX 
= + X *R .— 
aum PRINT B; a fg B ; .. RO MAX 
92 INPUT P 
ira PRINT 
iIQ PRINT “SUR RESPOSTA “;P 
ao PRINT “RESPOATAR CORRETA “;A 
* 
122 PRINT 
o PRINT “DIFERENCA “:;ABS (P-A 
* 
1352 PRUSE 180 
JOR CLS 


> 
17e GoTo 2a 


Note que na linha 170 foi usada uma nova 
KEY-WORD: GOTO (tecla G) que significa “vá para” 
dada instrução (no caso 20); seu efeito é análogo ao 
RUN só que ela NÃO executa um CLEAR. De fato, pare 
o programa (usando BREAK ou STOP conforme o caso) 
e, execute-o novamente; só que, ao invés de fazer RUN e 
NEW-LINE faça GOTO 10 e NEW LINE! 

Preste atenção na estrutura utilizada nas linhas 60 e 
70 para “gerar” números positivos ou negativos com va- 
lor absoluto menor do que o valor máximo! O 
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QUEBRA-CABEÇA 


AS IDADES DAS TRÊS FILHAS 


O quebra-cabeça deste mês consiste em fazer com 
que, de algum modo, o TK resolva um problema já bas- 
tante conhecido. 

Um matemático (A), propôs a um de seus amigos, 
também matemático (B), que ele “adivinhasse” as idades 
de suas três filhas. Entre eles transcorreu o seguinte diá- 
logo. 

Matemático A: “O produto das idades de minhas três fi- 
lhas é igual a 36”. 

Matemático B: "Só com essa informação é impossível 
saber quais as três idades”. 

Matemático A: “Está bem. Saiba, então que a soma das 
idades das minhas filhas é igual ao número daquela resi- 
dência” (Disse isso apontando para uma casa próxima de 
onde se encontravam). 

Matemático B: "Ainda assim, me é impossível precisar as 
idades”. 

Matemático A: “Vou lhe dar uma última pista. A mais 
velha de minhas filhas dança “ballet”, 

O outro matemático pensou durante algum tempo e 
finalmente afirmou: 

Matemático B: “Com certeza, as idades de suas filhas 
— 5 

Obviamente, as idades devem ser consideradas como 
números inteiros e em anos. Assim, uma pessoa com 18 
anos e 6 meses de vida tem idade igual a 18 anos. 

A exemplo do Quebra-Cabeça do nº 2 (Verdadeiro 
ou Falso), não estamos interessados nas três idades das 
filhas do Matemático (A), mas sim num programa que as 
obtenha. Aqui, também, é conveniente utilizar preferen- 
cialmente as instruções e comandos destinados à análises 
lógicas: 


(IF... THEN, OR, AND, NOT, > —,<=,etc.). 
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Para um ser humano, talvez a forma mais fácil de re- 
solver esse problema seja escolher entre as dez (16) as- 
serções as duas mais antagônicas, (isto é, as duas cujos 
valores V ou F, sejam necessariamente diferentes) e atri- 
buir a uma delas um valor. A partir daí, obter os valores 
das demais asserções e verificar se há coerência entre 
elas. Passando as vistas pelas dez afirmações a dupla es- 
colhida provavelmente será formada pelas asserções 9 e 
10. De fato, se a asserção 9 for verdadeira (valor V) a as- 
serção 1) será falsa (valor F); e, se a asserção 9 for falsa 
(valor F) a asserção 1) será verdadeira (valor V). 

Para facilitar a análise das asserções, nós as designare- 
mos convenientemente por A(1), A(2),... até A(10) se- 
guindo a mesma ordem em que elas são apresentadas. 

Pode-se fazer, por exemplo: 


A(10) = 
A(9) = 


: portanto ... 
: portanto ... 


. € assim por diante, até concluir algo a respeito da 
coerência ou não dos valores dados à asserções. 

No exemplo acima, em que supôs-se A(16) = F, che- 
ga-se a uma incoerência, o que mostra que, se há uma so- 
lução, nela o valor de A(16) tem que ser V. Tomando-se 
A(10)=WV obtém-se o resultado coerente mostrado 
abaixo: 


AMI) = V A(6) = F 

A(Z) = F A(7) = 

A(3) = V A(8) = 

A(4) = F A(9) = F - 
A(S) = V A(1O) = V 


A solução do problema, entretanto, não é solução do 
“Quebra-Cabeça”. O que queremos é um programa para 
que o TK encontre a solução! 

Podemos pensar em fazer um programa que “instrua” 
o TK para que ele proceda de modo análogo ao de um 
ser humano, entretanto, além de extremamente comple- 
xo, um programa desse tipo deve ser deveras extenso e, 
por conseguinte, levará muito tempo para ser rodado 
completamente. Provavelmente, tanto para o “micro” 
como para seu programador, o processo mais fácil e rá- 
pido é, sem nenhum paradoxo, o mais simples e traba- 
lhoso . 


continua 


O 


(Por exemplo: Fazer mil contas de somar é mais sim- 
ples e mais trabalhoso que fazer uma única extração 
de raíz quadrada). 


Tal processo consiste apenas em atribuir a cada asser- 
ção um valor (V ou F) e para cada sequência de valores 
dados a A(1), A(2), . . ., A(10) verificar se há ou não 
coerência. As asserções são em número de dez (15), cada 
uma podendo assumir dois valores (V ou F), portanto o 
número de sequências possíveis é 21º = 1024 (desde 
A(1) = A(2) = ...= A(10)= Faté A(1)= A(2)=... 
= A(IO) = V). , 

O que o TK terá que fazer é gerar cada uma das 1024 
sequências de valores para as asserções e testá-las uma 
por uma, mostrando na tela apenas as que forem coeren- 
tes e, portanto, soluções do problema. O fluxograma a 
ser seguido deve ser algo semelhante ao mostrado 
abaixo: 


GERE UMA SEQUÊNCIA DE 
DEZ VALORES (V ou F) 






ATRIBUA ESSES VALORES 
ÀS DEZ ASSERÇÕES 
VERIFIQUE A COERÊNCIA 







TODAS AS 
1024 SEQUÊNCIAS- 
POSSÍVEIS FORAM 
GERADAS? 





NÃO 












MOSTRE A 
SEQUÊNCIA 
NA TELA 







Ao tentar traduzir o fluxograma para a linguagem 
BASIC encontramos maior dificuldade quando temos 
que escrever o conteúdo das asserções numa linguagem 
conveniente para o TK. Uma solução possível é aprovei- 
tar as próprias características do micro e chamar de 1 
(um) ao valor V e de O (zero) ao valor F, utilizando prin- 
cipalmente as instruções e comandos destinados a exe- 
cução de operações lógicas (IF ... THEN; OR; AND; 
NOT Semed =... .Gte...,). 

Abaixo encontra-se listado um dos possíveis progra- 
mas obtidos como sugerido pelo fluxograma. Digite-o 
e verifique você mesmo o resultado. Se você tem ape- 
nas 2 Kbytes de RAM, não se assuste com o fato de a lis- 
tagem confinar-se ao tôpo da tela. Isso acontece por que 





esse programa ocupa 1688 bytes e não sobra lugar na 
memória para o restante da listagem ser mostrado na te- 
la. O principal inconveniente desse programa é seu tem- 
po de processamento (cerca de 25 min). Como sugestão, 
ponha-o para rodar e vá tomar um café e ler um pouco 
de jornal, superando engenhosamente o inconveniente! 





LO REM “u OU Fº” 
SS FAST. 
SO LET D=VAL “7º 
58 Pon NAAS? 

=PI-PI TO UAL “os: id 
GQ LET M=N-PI-PI ii 
“OD FOR 
o LET 
39 LET 


+ 


“.. ig te 


) =M-2*INT (8) 
T «B) 


Va 
& 
“o 
Us, 
Y 
H 
=| 
Q 
Ú 
F 


ENDDAxz 


pot pos 
ado, 
99 
fm 
Pat 

vol 

AM es 


TO VAL “18” 


= UT 
Teo 
+ 
O 
x 


Dw 1% 


1 =PI/PI) 


] 
À 
182 -5S (6)) 


ND 
em LA 


oi É | Rad 


Dare <“OUO o rtHHO Z 
H 
O 


PINO Cn 
Ms Mm pos 


as em, TI qm, 
| dd A mê 
te CARO 


4, 
a 1) 


mM DDA- 
ms Dl» 


IO JON O RO DV XxX ODUTVE HA 
D*, 


mo OM vB NAU Da 


he 
a 


(9) 1º 


QNO+WT 
7 
D 


prppr 
(NE Ivrs 
996090 

n) 

a 

ba 

Q 

N 

[o 

9] 


A(dy =P 


e 
As“) TZTONE Ji=at Ou 


HH4ODTDHO 

D 1 cms pod = 1 
Ou] 
Da“ DD-= HH 
-DINZA 


FOR C=PI-PI TO VAL “1e“ 
460 IF U(C)=PIZPI THEN PRINT AT 
40 IF U(C)=PI-PI THEN PRINT AT 
480 NEXT C 
490 LET D=-D+VAL “D“ 
s00 NEXT N 
S10 FOR Z=PI*PI TO VAL "as 
S20 PRINT AT Z.PI/ZPI;CA( :z;" 


Sel NEXT Z 
Ses PRINT AT UAL “IBC,PI-PI:;CAI 


As linhas de 5 a 11(j geram uma sequência de 10 va- 
lores. As de 210 a 27 apenas auxiliam na análise da 
coerência. As linhas de 304 a 440 são as asserções tradu- 
zidas e escritas de forma conveniente (verifique como!) 
para o TK. As linhas de 418 a 440 testam a coerência e, 
finalmente, as linhas de 450 a 525 apresentam o(s) re- 
sultado(s)** na tela. 


** (Nada garante que haja apenas uma solução a prin- 
cípio!) o 
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O seu computador TK82 ou TK85 pode ser usado 
como um eficiente professor. O Programa que apresen- 
tamos adiante foi criado para auxiliá-lo a memorizar pa- 
res de informações, como por exemplo, países e suas ca- 
pitais, elementos químicos e seus símbolos, palavras em 
português e sua tradução em inglês, e assim sucessiva- 
mente. 

Ele foi adaptado a partir de um programa publicado 
originalmente na revista americana SYNC de Set/out de 
82. 

Se você tiver três horas de paciência para entrar com 
o programa no seu TK, você será recompensado com um 
excelente auxiliar de instrução. Vale a pena. .. Vamos 
lá? 


13 Parte: ENTRADA DO PROGRAMA 

Entre com o programa conforme listado na figura 1. 
E recomendável ir gravando o programa em fita à medi- 
da que você for digitando, para não correr o risco de 
perder todo o seu trabalho com alguma falta de energia 
elétrica, por exemplo. 


* REM O 





S REM PARG “RUN” O 
ENTRE “GOTO 18058" 

9 REM FARA ENTRAR com 
DADOS OU PARA MANIPULAR O PRrocRaa 
MA. ENTRE “GOTO 100208" 

180 LET B=INT (RND+TOT) + 

LS TLS 

13 PRINT AT 4,.6:* 
R RETORNAR AO MENU- 

lá RETURN 

1S LET DE=INKEYS 

26 IF D$&='"Q" THEN 

17 RETURN 


NOVOS 


hs 


-DIGITE q PaE 


-—- 


GOTO 598 
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O PRINT “NESTA OPCAO, “;C$&;" 

2i RETURN 

2S PRINT “UOCE DISSE QUE Ef *“; 
D & .. .. 

26 RETUPCAM 

SA PRINT TAB SS: “UOCE SCERTOU." 

aq1 RETUEN 

190 PRINT AT S,86;'“'0 PROFESSOR D 
em 

182 PRINT T 

14 PRINT AT 18,8; "POR FAVOR. E 
NTRE COM O SEU NOME . 

118 INPUT Cg$ 

*tB CLS 

1220 PRINT AT a,G: "caro ver Es 
122 PEREINT “EU Vol AJUDAR voce A 
CONHECER & 

122 PRINT “DADO > 7 = UMa SMA. 
1253 PRINT “VOCE IRB APRENDER 5E 
it/5SUB 

eà PRINT N&;,. E UICE-VERSEB.' 
1265 PRINT 

ces GOLO 

128 PRINT TAB 10: “MENU” 

120 PRTNT 
ia PRINT o” 1. REVUISASO DAR LIST 
131 PRINT ' o. TESTE PRATICO" 
+32 PRINT í* 3. TESTE DE RaAPIDE 
135 PRINT í* à. FIM DA aAtuLar”r 
13d PRINT 

13 PRINT “ESCOLHA tUiMãa pas GPCO 
ES BCIMA.: 

1iSôO INPUT a 

ido IF A:>1 BAND Ac<>2 AND B<:3 A 
NO Q<4>4 THEN GOTO 148 

Jão ts 

152 GOTO R+2004 

2080 PRINT AT S,0;U---...—— GEUIS 
ão DA LISTA---— == —— 

28s GOSUE 282 
a PRINT “EU VOU HOSTRAR UR:UM 
p E) | 





Eça 


213 
E e 


PRINT “E RESPECTIUVO-A “ing: 


212 PRINT “DEPOIS DE MostTroOS aos 
“:TOT;” ITENS. PASSAREI A GELR 
CAÔ AO CONTRORÍIO.” 


PRINT '“* ESCOLHA UM NUMERO D 


A og, Q-PASSAGEN Nas BaApP 


9-PASSAGEMN MAIS LEN 


LNPUT Z 

IF Z<0 OR Z>9 THEN GsoTo 215 
FOR A=1 TO TOT 

GOSUE 12 

PRINT AT 18.2;:B&(B):"” 

FOR N=90 TO d+2357 

NEXT N 


FOR N=0 TO 4+2%7Z 


FOR A=2 TO TOT 

GOSUS 12 

PRINT AT 518.2: B25(R3:% 
FOR H=0 TO 4+25%7 
NEXT MN 

GOSUB 15 

PRINT Báãt(f) 

FOR N=Q0 TO 4+2+FZ 


GoTo 220 
PRINT AT 5,0;"---—-—-— = TEST 


E PRATICO - -—= >. da 


4205 
410 


GOSUs5 20 
PRINT “VOCÊ RESPONDERR A 36 


QUESTÕOES.”. vLESTAS 2 


e 
Is 
ais 


PRINT “EU LHE DOU UM-a 


“:M 

. PRINT “UOCE ENTRA COM sEU/S 
df :! - 

“13, PRENT ni QUESTAS 165 


PRINT “FAREMOS O INVERSO.” 
PRINT “ENTRE “"NEU LINEC" Pp 


ARA COMECAR" 


417 

418 

419 

io 
425 

430 

435 

440 

l 4á&sS 
447 

N&: .. 

ás 

468 


413" 


LET tU=0 

INPUT Zy 

IF F5 THEN GOTO 435 

FOR A=i1 TO TOT 

LET Eg(A) =CHR$ OG 

NEXT AQ 

FOR A=1 TO 45 

GOSUB 14 

IF EgtB)="'X" THEN coro 4s4a 
PRINT AT S.,o:"“ouaL E G-e 
DBO za“ 

PRINT AT 180,8:Ag(B) 

INPUT Dgã 

GoOsSuUB 25 

GOSUB 15 

IF LEN Dã=: 2 THEN GOTO 45 
LET D$6=2Db5+4” * 

GOTO 4á?0 

IF C&=Bã(B) THEN cotTo sos 
PRINT “VOCE ERROU. O CERTO 


PRINT TAB 5: BE(B: 
FOR N=82 TO 35 

NEXT N 

GOTO 497 

IF NOT F2 THEN LET EgtB)=*X 


GOSUB 30 

LET U=U+1 

FOR N=2 TO 16 

NEXT N 

NEXT AQ 

FOR A=2 TO 15 

GOSUE 10 

IF Eg(B) =]"X'" THEN GOTO 5905 
PRINT ART 9,8; “QUAL E O-A “; 


PRINT “CUJO/A VCiNg&:l E.” 


q 
Q 
= 

PL 

o 

O 
Q 

q 
quad 

=> 

Q 

E 

Q 

Q 

o 

Q 

OQ 

M 

Q 
qui 


0 
|] | 0 
] 


e 


In 
00 


0 0 0 
po ro UT 
o Ga 
0 ;0 R 0 y 0 h 
acessorios e equipamen 


| 


0 


0 


0 





515 PRINT AT 22.6: B&(B) 

520 INPUT D& 

Ses GOSULE 25 

se? GOSUB 126 . 

s320 IF LEN D$g=Li THEN COTO 545 
535 LET D$=D$+" * 

Sság GOTO 5539 

S&S IF DA&-AG(BE) THEN GOTO 568 
E a PRINT “VOCE ERROU. O CERTO 


Sol PRINT TAB 5; As(B: 

9253 FOR N=82 TO 46 

vo4 NEXT N 

95 GOTO 575 

S60 GOSUE 30 

265 IF NOT F2 THEN LET Eg(B)="X 


5780 FOR H=8 TO 26 

S71 NEXT nN 

ro LEF l=t+41 

75 NEXT Q 

So CLS 

584 SLOU 

585 PRINT AT 9,0;C8;". UOCÊE FEZ 
“od PONTOS «* 

06 PRINT 

290 PRINT “DIGITE ““NEU LINE 
PARA O MENU." 

92 INPUT Dg 

595 GOTO 994 

600 PRINT AT 5S,.B;----—— —— TESTE 
DE RAPIDEZ---—-—-— —-— dê 

6905 GOSUB 20 

6180 PRINT “VOCE TEM 66 SEGUNDOS 
PARA ENTRARCOM O MAIOR NUMERO P 
OSSIVEL DE RESPOSTAS.“ 


611 PRINT "EU DOU UM-A “Mg: 
612 PRINT “UOCE ENTRA SEU/SUS * 
415 PRINT 

continua 
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1115 PRINT 





614 PRINT “ 


"MAIOR PALAVRA DO di. 4 
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TA CERTA “1 PONTO POR RE=SDOS GRUPO: - SL: LETRAS.) 
TA ERRADÁ. O PONTOS SE USCE N jiSo PRINT TEIuLo DO 2. GRUPO D 
INE er siso o bh ads PRINT "MAIOR PALAVRA DO 2. 
615 PRINT GRUPO: -— .UILB;" LETRAS. 
6i6 PRINT “ENTRE “"NEyU LINECC p 1138 PRINT TOTAL DE ITENS DA RE 
ARA COMECAR” EE O 
É-ça ER 1140 PRINT “AS INFORMACOES ESTAO 
| CERTAS-S/N?" 
SãO PORE sets. a lid2 INPUT Zg& 
| 625 POKE 16437.,0 1145 IF Z8='S5" THEN GOTO 11514 
638 GOSUE 1418 1147 IF Z258=º"Nº THEN RUN 995 
s40 PRINT AT 18.8; AS (B) iiso IP Z8<>"S" OR Z8<>"Nº THEN 
64 UT » 
647 IF PEEK 1643656+256+PEEK 1548 ESTES DIM AS(TOr LTS LET FS=1 
7<625908 THEN GOTO 5860 dio DIM ARCTOT, Li) 
650 IF Dã="" THEN GOTO 6536 5 
1170 DIM ERITOTI 
se Te LER E HEN GOoTo 6556 1175 CLS 
Ss8 PET Do- DE ts peca 1185 PRINT AT 19.6; "“ENTRE com o 
659 GOTO 557 2. ITEM DO 2. GRUPD.DEPDOIS COM O 
(B) THEN LET U=il-s 1. ITEM DO SEGUNDO GRUPO; ENTRE 
Sos Tr Dicas: E M DO 1.6RUPO, O & 
evo coro ea6 MEN LET VU-bH Ceu DO à. GRUPO E àôs 
828 PRINT AT 9.0; "UOCE SE SAIU Da Rn A a am 
oe aa +60 12002 IF NOT Fi THEN GOTO 141256 
82S FOR N=0 TO 28 seo Ear 
So ds 1218 PRINT M$;“--"; AG (a) 
816 PRINT “ESPERO QUE TENHA cos 1515 SCROLL id. es ea 
| TARADO DE APRENDER ALGO Novo.” 298 INPUT as ==] B8 
| RI PRE o TO só 1230 IF Z$="“ THEN GOTO 1298 
816 NEXT N 1258 SCROLL 
Seo PRINT  HSFHPFSATES A proxIM fãs CRINT Sd Si 
| A vECestaaes 1265 PRINT Agt(R) 
822 FOR N=8 TO 2086 so DRRNE 
Do. nro” W 1275 PRINT N$;“-—"; 
825 GoTo 1906 1286 INPUT B$&tf&) 
9980 CLS 1285 PRINT B&iEG;) 
991 PRINT AT 5.14; prints 2 pec R 
Sor pd Te. 1295 IF Fi THEN GOTO 1326 
397 GOTO 160 1388 PRINT AT 7,6; NOS UAMOS A 
999 ELS GORA REVER CADA PAR DE ITENS. 
RIACHO E neuro! ROTINA cana C APARECEREM NA TELA ENTRECAENES 
1905 Goro 1338 : (LINEC" SE ESTIVEREM CORRETOS. 
14883 lo Fi= [| 1381 PR LNT .. ENTRE .. AE “s -— e... 
1099 PRINT AT 19.5; "ENTRE COM O 3 IN 
TITULO DO Ê SEU PROO EU, LINE - SE ES TIVEREM ERRADO 
RARHA. É 
1502 PRINT “* NESTE CASG. VOLTE 
ao E es A ENTRAR COM O ITEM.” 
19015 CLS 1305 LET F1=1 
1020 PRINT AT 9,0: “ENTRE COM O T 45356 PRrOT A S: “UOCE PODE ago 
ITULO (NO SINGULARIDO PRIMEIRO G Ra 5: 
RUPO DE ITENS DE SUR RELACRO, 4328 PRINT 
NBE PREFERENCIA OS ITENS MAIS LO as DE TN 
1938 INPUT M$ Re PRINT “1. CRIAR UM NOVO ARO 
s CL . N 
8 Pena NT Gr SAS: “SuoNTOS DIOEE *OSonRSUNGo 2" REPAZER A REVISNO 
S TE 4 LONSES é is are 
PRIMEIRO GRUPO DE ITENSS” Raco PRINT “a SAVE O PROGRA 
neta Ro AM 1339 PRINT 
ITULO (NO SINGULAR: DO SEGUNDO GR de TNpLtr 
UPO DE ITENS.” A Ei 
878 Elder ar 1545 1º BIS THEN RONC 2055 
197S PRINT AT S,B; “OUANTOS GISIT “> UN 19987 
OS TERS A PALAVRA MAIS LONGA DO ass dora” Sa ,HEN GOTO 1508 
SEGUNDO GRUPO DE  ITENSSº sao Sra 
ps ipa Ad 1370 PRINT AT 19,0; ACIONE SEU 
1999 PRINT AT 92,0; "QUANTOS ITENS ROPRENDOR MA POSteRo RECve, E 
toNO TOTAL, TERRA À SUR RELACAO?” TOLRE poe ze 
Td code 1558 ENE 
1105 PRINT AT S.O;"TITWLO- pd E di THEN GoTo 996 
11846 PRINT T$ 
1110 PRINT “TITULO DO 42. GRUPO D 
E ITENS:- “:;Mg continua 


LIGUE-SE À 
“INFORMÁTICA 


FAÇA COMO OS 
FUNCIONÁRIOS DA 
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S.0.S COMPUTADORES. 
CURSOS DE 


BASIC e COBOL. 


também 208 * Número limitado de alunos por 
sábados classe e 1/3 de todas as aulas com uso 
direto dos computadores, inclusive nos cursos de 
Cobol « Professores altamente qualificados ag ço 
e apresentados com 
sis com vários equipamentos Demae, Prológica, 
Sysdata entre outros * Preços extremamente acessíveis. 


HDS 


COMPUTADORES 


NÚCLEO | 
Av.Pacaembú, 1.280 
Fones: 66.7656/66.1513 


ha 


piurmo 
e vaga 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 


NÚCLEO | 
R.Tomás Carvalhal, 380 
(Próximo Estação Metrô Paraíso) 
Fone: 5700.6097 





Uma vez digitado o programa proceda da seguinte 
forma: 


23 Parte: MANIPULAÇÃO DO PROGRAMA 

1) Se você estiver no modo FAST, volte ao modo 
SLOW 

2) Nunca, nunca mesmo, entre com RUN 

3) Digite GOTO 1000 

4) Aparecerá o “MENU” com 3 opções (veja fig. 
nº 2) 

5) Escolha a opção nº 1 e NEW LINE. 

6) Siga as instruções do programa: 

a — escolha o título; por exemplo, PAISES E SUAS 
CAPITAIS (este será também o título com o qual o pro- 
grama será gravado mais adiante. 

b — escolha título (no singular) da 13 série de dados: 
PAIS (no nosso exemplo). 

c — forneça o número de letras da palavra mais com- 
prida, por exemplo: 15. 

d — e — siga o mesmo procedimento para o segundo 
grupo de informações. Por exemplo: CAPITAL e 15 dí- 
gitos. 

f — Entre agora com o número de países e capitais 
que você quer listar, por exemplo, 60. 

7) O programa então lhe auxiliará a fazer uma revisão 
dos dados entrados até agora. Se houver algum erro en- 
tre “N” (não) e volte a fornecer os dados solicitados. 

8) Se estiver tudo certo entre “S” (sim) e, então, co- 
mece a fornecer ao computador os dados (no nosso 
exemplo: país e sua respectiva capital) até completar a 
série. 


Se você perceber que cometeu alguns erros, prossiga: 
haverá oportunidade de se fazer a correção por ocasião 
da revisão. 

Após entrar com todos os pares de informações o 
programa auxiliará você a fazer uma revisão. A cada par 
de dados entre “NEW LINE” se a informação estiver 
correta. Entre “X” se estiver errado e corrija a informa- 
ção, entrando novamente com o país e sua capital. 

9) Após a revisão, o programa volta ao menu. Neste 
ponto escolha a opção 3. Coloque seu gravador em 
“REC” e grave (SAVE) o programa em fita. 

39 parte —- USO DO PROGRAMA 

Depois de todo nosso trabalho e dedicação (ufa. ..), 
estamos agora prontos para usufruir das aulas do nosso 
professor cibernético. 

1) Após ter gravado o programa em fita ou quando, 
numa outra oportunidade, você passá-lo da fita para o 
gravador, usando o comando LOAD “PAISES E SUAS 
CAPITAIS” (no nosso exemplo, é claro) ele se iniciará 
automaticamente convidando você a fornecer seu nome. 

2) A partir desse momento o tratamento entre o 
computador e você será personalizado, ele se dirigirá à 
você e lhe mandará o menu de opções que você tem para 
memorizar os “PAISES E SUAS CAPITAIS” (veja fig. 
3). 

3) Escolhendo a opção nº 1: revisão da lista, você 
poderá rever as capitais e seus respectivos países e vice- 
versa. 

Você pode escolher a velocidade de revisão sendo 0 
a mais rápida e 9 a mais lenta. 

Para interromper a revisão entre Q e NEW LINE que 
também interromperá as opções n9 2e 3€ retornará ao 
MENU. 

4) Na opção nº 2: 

O computador escolherá aleatóriamente 15 países e 
você deve entrar com a sua respectiva capital. 

Depois ele escolherá 15 capitais e você deverá forne- 
cer o respectivo país. No fim você será informado quan- 
tas respostas corretas você deu. No caso de você ter mais 
do que 40 ítens fornecidas ao computador ele não repe- 
tirá a pergunta cuja resposta dada estiver correta. 


Na opção 3, que é um teste de rapidez, você deverá 
fornecer em segundos O maior número possível de capi- 
tais para os países perguntados. Cada resposta certa vale 
1 ponto, cada resposta errada você perde um ponto. Se 
você só entrar NEW LINE você não perde nem ganha. 

A opção nº 4 é um final para o programa, que se 
reiniciará em segundos. Nesta opção é fácil dar um 
“BREAK” no programa para poder digitar “GOTO 
1000" e preparar uma aula diferente. 

Claro que você pode preparar diversas aulas “diferen- 
tes” com o PROFESSOR e armazenar cada uma, com 
seu respectivo nome, em fita. 

Se você quiser armazenar o programa em fita sem aula 
alguma, sugerimos que após ter entrado com ele no com- 
putador, armazená-lo em fita digitando SAVE “O PRO- 
FESSOR”. 

Quando, em outra ocasião, você quiser usá-lo para 
preparar uma aula entre LOAD “O PROFESSOR" e 
após tê-lo no computador entre "GOTO 1000". 


Boa aula e boas notas! o 
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PROGRAMA DO LEITOR 


OTHELL 





Este programa foi originalmente publicado na revista 
japonesa “BASIC — jogos para calculadoras programá- 
veis” e foi adaptada para o TK para ser rodado em modo 
“FAST' (versão original para calculadora programável 
FX-702P). 

O objetivo consiste em conseguir o maior número de 
fortunas possível, portanto, ganha aquele que tiver 
maior número de fortunas em jogo após o preenchimen- 
to das casas vazias (+) ou zerar o adversário dentro de 
um tabuleiro de 8x8. 

Para conseguir estas fortunas é necessário prensar as 

peças do adversário e fazê-lo entregar a você, assim te- 
mos as seguintes regras: 
a) Só é possível adquirir suas fortunas prensando uma 
ou mais peças do adversário ( [8] ) em duas extremidades 
tanto nas diretas como diagonais, digitando para isso as 
coordenadas onde você deseja colocar a sua peça, pri- 
meiro na horizontal e depois na vertical o computador 
fará o mesmo após a sua jogada. 

Exemplo: 


X =? 4 depois NEW LINE 
Y =?5 depois NEW LINE 


b) Caso não seja possível realizar o item anterior, isto é, 
fique sem saída, não tendo lugar para colocar sua peça, 
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é necessário passar a sua vez, digite um número negativo. 
Exemplo: 


X =? —1 depois NEW LINE. 


pés 
» 
m 
= 


EDSON hM . IO vYOsSHIDA 


NELSON MURASSAKI 
DIM C$S(16,8) 
DIM R$&(3,8) 
LET P=1 
GoToO q 
PRINT AT 16,2; * 
PRINT AT 17,2; X=" 
INPUT xX 
LET Z=xX+1 
GOSUR 21 
11 LET X=INT Z 
ia PRINT AT 172,2i'"Y=" 
153 INPUT w 
14 PRINT ad a a 


pa 
O CO = 3 CCT e Co ny 


£ 

1S IF ASeX,VI=]+" THEN GoTo 28 

1S PRINT AT 11,53; "OUTRA VEZ” 

eo GOTO 6 

ei IF Z<=8 THEN PRINT AT 15,85; 
“PRSSE e 

2 IF Z<=8 THEN PAUSE I2ê2 

23 POKE 16437,255 

a4 PRINT AT 11,5; " se 


continua 


25 IF Z<i THEN coTo 56 


26 IF Z<=8 THEN RETURN E. +ISiçãA p 

28 LET BS“ 61 IF P=1 OR 9-1 THEN RETURN 
dm s2 Gora 19 

es LET G$- 63 IF AS(E+I.F+J) <>)B$ THEN Gor 

21 CET = o se 

.B2 PRINT AT 16,2; “VOCÊ “;X-1;* o e 

1 sacia s41 66 IF E>=i THEN IF E<=5 THEN I 

34 PRINT ar Ss... n F F>=1 THEN IF F<=3B THEN corto 68 

Sa &7 GOTO 598 

39 LET Sta 6S LET ES-=ASCE,F) 

38 LET P=1 69 IF D&<>B% THEN GOTO 71 
aa 78 GOTO 64 

3 LEI 0=8 71 IF D&="+" THEN GOTO 59 

489 FOR 5=12 TO 415 72 LET A$E(X,Y) =6$ 

41 FOR R=8 TO 12 STEP -2 CET Ronos 

42 LET X=VUAL CSI(S,R) E Ler ne 

43 IE X=9 THEN sotTo 5 > LET TR ASIM MN) 

4S LET Y=VAL CEÍS.T Nin. AStM,N) =B$ THEN LET Age(M 

46 IF AS(X,Y)="+" THEN GosuB 5 72 IF Té- -58 TUE GOTO SS 

47 IF 9-1 THEN PRINT AT S,2;“C sa o TÁ AR em so 

OM ” .- es - .n . . E . cê 

48 IF 0Q=i THÊÉN Soro 51 & So CRENTE BY Mimas Aa ss 

49 NEXT R DA GE du 

Sa NEXT S Se LET Ls 

E no Fra Jo a 83 FOR J=1 TO 8 

ne E e Na vu 4 84 PRINT AT Jz2+3.15;dU-4; 

sS4& LET F=r 8s FOR I=1i TO BS 

SS LET = 85 PRINT “ “iAgtr.J: 

SB LET N- 87? IF AstI,J)="0"" THEN LET v=y 


ie +12 


o 
SS IF E+I>=1 THEN IF E+I<=5 TH “ao NEXT 1 
EN IF F+Jd:=1 THEN IF F+Jc<=8 THEN 0 NEXT 5 


Goro 63 91 PRINT AT G,8;"SCORE: VOCES= 
“4, ºCOMP.= “":C;"* 
92 IF vY-0 OR É-=6 OR v+C-6d THE 
N coro 41253 
IF P=0 THEN PAUSE 308 
Sa POKE 16437,255 
QS IF P=8 THEN RETURN 


MICROCOMPUTADORES 


AD DATA Educação e Informática S/C Ltda. 96 GOTO 65 
o? FOR d=1i TO SB 
Cursos os FOR 2 TO S. gE 
Introdução à informática 33 LET RSCI,J)="+ 
ca : : 108 NEXT TI 
Programação em linguagem Basic 101 NEXT JS 
Noções de programação estruturada 102 LET Agt4a 43 =" 
Conceitos e recursos de equipamentos 1805 LET A$G(S.,.S) =“ 
185 LET A$is ss omg 
Preços especiais para grupos fechados 126 LET ct (1) ="88118118” 
(empresas, associações, escolas, etc.) 187 LET C&t2) ="66566555"“ 
1868 LET C&(3)='346556545" 
189 LET C&(4) ="46355554" 
110 LET C&t5)=º31415161“ 
2122 LET C&(6) ="231425416* 
15 LEI Cê io) srsscasses 
AD DATA Comércio e Serviços de Informática 114 LET Cs (9) ="32425252"“ 
115 LET C&tiBI=]"37475767" 
: , : 116 LET C&t11)='*'25242526" 
Fornecimento de microcomputadores e acessórios 117 LET C&tiD) ="7574 7576” 
(TK85 & JR. SYSDATA) 128 LET C&R(13) ="22777227”" 
119 LET Cêãt(il4) ="12217152“ 
120 LET C$&(15)=º17257557" 
121 LET C&(16) =*"999999959“ 
Diagnóstico para implantação de microcomputadores e sistemas i22 GOTO 88 cs 
deintormação. 123 PRINT AT 21.0; "DESEJA JOGAR 
ISOPRRNEE Todaçio 
Projeto e implantação de Software específicos (pacotes ou 
125 POKE 16437,255 
encomendados) 125 CLS 
127 TF INKEr&ã=ºS"º THEN GOTO 1 
128 STOP 
129 SBVE DOTELIBS 
Rua João Ramalho, 818 — Perdizes — Fone: 864-8200 RE SORA A O 
São Paulo 
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“Às origens deste livro não são muito 
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Va “elaborado. pelo. rei Wên. e seu filho, o - 


nã lh 
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preços 
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e at 
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- 
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- 


o mio a 
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mg ST 
ca tj vias 
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e me frota 


eres ss 


o o 
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e, 


EEE 
“ e. . L-que 


Deere 





ii —s A cel mo 


e ams 
- ua 


teus + 


e empate 


-- 


"“X CHING" 
“QuAL Ef O SEU 


Ag 
VAL “AS” 
“E O SOBRENOME “ 


Bs 
“SEL HEXAGRAMA DE HO, 


45 FOR D=VAL “1º TO UBL Ss 
SO LET C=(CODE AS+CODE B3) +RND 
>CODE Ag*CODE B$-2 

SS IF €C THEN PRINT Yyg 

SB IF NOT C THEN PRINT F& 

5a NEXT O 

70 PRINT “SEU NUMERO DE SORTE 
“4 INT (CODE Ag*CODE BSIJRND) +1 

75 PRINT “UEJA O I CHING PBRA 

PRETRBCRO." 


I 


| 





DICAS 


Esta matéria originou-se de uma carta enviada pelo 
assinante Roberto R.Malcher (veja seção DESGRILAN- 
DO na pág. 4 ). Ao invés de respondermos rapidamen- 
te para eliminar uma dúvida particular do leitor, resolve- 
mos explorar o assunto de maneira mais completa. 

A memória do TK está organizada como uma pilha de 
bytes, cada um correspondendo a um número cujo valor 
está entre À e 255. Cada posição da memória tem um 
endereço que vai de ( até um valor que depende da 
RAM disponível no computador. Lembrando que 
1 Kbyte corresponde a 10024 bytes (2!º) e que a ROM 
do TK82 ocupa 8 kbytes, a RAM deveria começar no 
endereço 8192. 

Por certas particularidades do projeto original os en- 
dereços de 8192 a 16383 não são acessados pelo sistema 
operacional, mas estão reservados para futuras expan- 
sões da ROM (o que já ocorreu, aliás, no TK85). Isto 
significa que o primeiro endereço da RAM será 
8K+8K = 16x 1024 = 16384. 

Do endereço 16384 ao endereço 16508 estão armaze- 
nados os valores das variáveis do sistema operacional do 
TK. Estes 125 bytes são um pedacinho da RAM que a 
ROM usa para fazer o computador funcionar. A partir 
do endereço 16509 fica armazenado o programa. Até 
que endereço? Ora este valor é variável, pois o programa 
que foi inserido na RAM pode ter vários comprimentos. 
Uma das variáveis armazenadas nos 125 bytes iniciais é 
justamente a que indica o endereço do byte seguinte 
aquele em que termina o programa. 

Lendo estas variáveis, podemos determinar as frontei- 
ras entre uma região de memória e outra. 

O fim da memória, por exemplo, é dado por uma va- 
riável batizada RAMTOP contida nos bytes de endereços 
16388 e 16389. 

Num computador com 2K de RAM o fim da memória 
está no endereço 18432, ou seja, 16384 + 2K. 


A variável RAMTOP, então, vale 18432. Como em da- 
da byte cabe, no máximo, um número até 255 usa-se a 
seguinte convenção: o valor armazenado no segundo 
byte (no caso 16389) é 256 vezes o número nele con- 
tido. 
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Para armazenar, por exemplo, o número 19506 em 2 
bytes, devemos escrevê-lo assim: 


19 byte = 50 
20 byte = 76 


pois, 
50 + 256 x 76 = 19506 


O valor da variável RAMTOP para 2K, ou seja 18432 
deve então ser escrito: 


10 byte = 6 
20 byte = 72 


pois, 
O + 256 x 72 = 18432 


Experimente digitar no seu computador 


PRINT PEEK 163858,PEEK 163659 giá 
q. 


você deverá obter: 
() 12 


para 2K de RAM. Se o seu computador tiver 16K de 
RAM você obterá: 


() 128 
pois, 


O + 256 x 128 = 32768 


Lembrando que a RAM do TK começa no endereco Se você tiver 16K, obterá: 
16384, digite o programa da figura 2. 


SAMTOP=32757 


RAM DISPONIVEL =1S KEYTES 


io LET RAMTOR=PEER 162R3882-+2564P 
ECR 163393 
oa LET RRAHMDISP=RAMTOP-15354 





30 PRINT C“RaMTOP=":;:RAMTORP Se o seu computador for um TK8B5 com 48K (RAM) 
E ee Ss Til j=" 5 ps 
DISP/AOBA. ado RR CAS ii fa giino ou um TK82 com expansão para 64K (ROM + RAM) 


você deverá obter: 





Se você tiver 2K, obterá: 
Tl =47,999923 KSYTES 
fig. 5 
RAMTOP=18432 cai À 
i. RAM DISPONIVEL =2 KBYTES Se você não obtiver este valor, leia a resposta à carta 
do Roberto na pág. 4 . Vejamos agora como está orga- 
, nizada a RAM, desde o endereco 16384 até a RAMTOP: 





INICIO DA RAM 16384 


VARIÁVEIS DO 
SISTEMA 


INÍCIO DO PROGRAMA 16509 


DFILE PEEK 16396 + 256 * PEEK 16397 


ARQUIVO 
DA 
TELA DE TV 


VARS = PEEK 16400 + 256 * PEEK 16401 
B$ =“MICROHOBBY” 
DIM CS (3,4) VARIÁVEIS 


ELINE 1 BYTE CH$ 28 PEEK 16404 + 256 * PEEK 16465 
? ST, gruta sendo 
+ 
oo À ESPAÇO DE 
a k Ro TRABALHO 


PILFUN PEEK 16410 + 256 * PEEK 16411 


PILHAS PARA 
CÁLCULOS 


PILFIM PEEK 16412 + 256 * PEEK 16413 


ESPAÇO DE 
MEMORIA 


NÃO ACESSIVEL EM BASIC 


PILHA PARA 
O MICROPROCESSADOR 


SP PEEK 16386 + 256 * PEEK 16387 


PILHA PARA 
ENDEREÇAR 
SUBROTINAS 


RAMTOP PEEK 16388 + 256 * PEEK 16389 


ESPAÇO QUE PODE 

SER RESERVADO PARA 
ROTINAS EM LINGUAGEM 
DE MÁQUINA 





fig. 6 
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Estudando este mapa da RAM, vemos que temos vá- 
rias maneiras de medir o comprimento de um programa, 
ou a memória necessária para rodá-lo. Vamos então 
acrescentar algumas linhas ao programa da figura 2 para 
ampliá-lo até o indicado na fig. 7: 


LET REnBAMTOP=PEEk IS 
EE 165389 
ev LET RAHDISP= =RAHMT CP - 
+ RAMTOP | ; 


HDISp/1924;"” KEYTES 
So LEI DEILE-PEER 16395+ 
EK 16397 
70 PRINT “PROGRAMA 
50 LET VARS=PEEK 154200+255+PEE 


K 164 
920 LET TELA=UBRS-DFILE 
(100 PRINT “TELA =“;TELA;" BYTES 


fig. 7 


+ 





Ao rodar este programa você obterá o indicado na fig. 
8, se sua máquina tiver 1 ou 2K e o indicado na fig. 9 
se tiver mais que 3,5K de RAM, 


RAMTOP =13432 

RAM DISPONIVEL =2 KeEYTES 
PROGRAMA =36€ EYTES 

TELA =61 BYTES 


RAMTOP =32765 

RAM DISPONIVEL =16 KBYTES 
PROGRAMA =5366 BYTES 

TELA =793 BYTES 








COMO 
ECONOMIZAR 
MEMÓRIA 
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Isto ocorre porque o sistema do TK tenta economizar 
o máximo de RAM quando esta é pouca (menor que 
3,5K). O truque usado consiste em armazenar no arqui- 
vo da tela apenas o que está impresso, não consumindo 
memória com espaços vazios (fig. 10). 

isto gera um cuidado, ao medir um programa elabora- 
do para um computador com 2K ou 1K, fazer isto com 
a expansão desconectada. 

Finalizando, vamos resumir como medir a memória 
utilizada: 


1) MEMÓRIA OCUPADA SO PELO PROGRAMA: 


PRINT PEEK 16396 + 256 * PEEK 16397 — 16509 

2) MEMÓRIA OCUPADA PELO PROGRAMA, VARIA- 
VEIS, TELA E VARIÁVEIS DO SISTEMA: 

PRINT PEEK 16404 + 256 * PEEK 16405 — 16384 


3) MEMÓRIA AINDA DISPONÍVEL (incluindo a pilha 
para o microprocessador): 


PRINT (PEEK 16386 + 256 * PEEK 16387) 
— (PEEK 16412 + 256 “* PEEK 16413) + 87 o 


Note que somamos 87 bytes, correspondentes ao 
comprimento do próprio comando direto. 
Õ 





ARQUIVO 


COMOxxxXXXXXXXXXXXXXXXXX 
ECONOMIZARxxxxxxxxxxxxx 
MEMÓRIAxxxXXXXXXXXXXXXX) 
XXXXXXXXXXXXXXXXXXXXXXXXX: 
XXXXXXXXXXXXXXXXXXXXXXXXX) 


XKXXXXXXXXKXXXXXXXXXXMXMX AMAM: 


ARQUIVO 


ECONOMIZAR 
MEMÓRIA 
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Apresentando os Apple 


A Microhobby é a revista dos usuários do TK, um ex- 
celente computador para nos iniciarmos e explorarmos 
o mundo da computação. Entretanto você pode estar 
pretendendo comprar um computador mais sofisticado, 
ou que você, senhor Executivo, tenha em sua firma tal 
computador. Por isso estamos abrindo uma nova seção, 
que vai tratar do mais popular, e um dos mais sofistica- 
dos, computadores dos Estados Unidos, o Apple, do 
qual já existem diversos similares no Brasil. 

São muitas as diferenças entre o TK e o Apple, vamos 
aqui, procurar explicar algumas. Ao longo das publica- 
ções iremos “destrinchando' o Apple. 

No. campo do Hardware são essas as maiores diferen- 
ças entre os dois computadores: 


TK Apple 


2K — 64K 16K — 64K 








Memória 









Processador  Z86,2.56 MHz 6502, 1.023 MHz 









controlado pelo 
processador 


controlada por 
circuitos 
especializados 










baixa e alta 
resolução, coloridos 


baixa resolução 
preto e branco 









alfanuméricos e alfanuméricos 


gráficos 


Caracteres 





Embora o máximo de memória RAM do Apple seja 
normalmente” 64K, existem circuitos especiais para ex- 
pandí-la ainda mais. 

Para quem não sabe, o símbolo MHz quer dizer mi- 
lhões de ciclos por segundo, e indica a velocidade com 
que “anda o processador. Uma instrução tipo 'soma' do 
6502 pode ser feita em dois ciclos, isto é, o 6502, pro- 
cessador do Apple pode realizar até 5WM,0MM somas por 
segundo. A mais longa instrução do 6502 leva 7 ciclos. 

Como você já deve ter percebido, então, o 6502 corre 
mais devagar do que o Z8Q, e, além disso, tem menos re- 
cursos; mesmo assim, o Apple é mais rápido que o TK, 


pela seguintes razões: se você já abriu o TK, você já viu 
que ele tem poucos Cl's, portanto o Z80 tem que fazer 
quase tudo, inclusive controlar o video (porque no mo- 
do FAST não tem video?), já no Apple existem cerca de 





mi RN A 
Tri TA Tilt IT TI LA PL. 
E SL SS Ca ER ed 


Prof. Wilson José Tucci — 





perimental Pueri Domus. 


100 circuitos integrados para ajudar o 6502, e portanto 
o microprocessador só tem que se preocupar quase que 
exclusivamente em executar o programa; além disso, o 
BASIC do Apple é mais sofisticado, e roda de uma ma- 
neira mais eficiente. 

Infelizmente o Apple não traz todos aqueles caracte- 
res gráficos que o TK tem, tanto em alta como em baixa 
resolução, ele só “plota' um quadradinho, mas as cores 
e a alta resolução compensam em muito a falta de carac- 
teres gráficos. 

Existem outras importantes diferenças entreo TK e o 
Apple estão no campo do 'Software”, ou programas. 

O BASIC do Apple se chama Applesoft, e embora to- 
da a lógica do programa e 90% dos comandos sejam 
idênticos, existem as seguintes diferenças: 

1) Enquanto no TK basta digitar uma tecla para apa- 
recer o comando, no Apple é preciso digitar o comando 
letra por letra. 

2) O comando LET não é obrigatório, ou seja, é váli- 
do apenas digitar: 


IH Ah=5 


3) Podemos colocar mais de um comando numa mes- 
ma linha, bastando separá-los com ': 


15 A=9:B=1SPRINTA+B 


0BS.: Cuidado se for juntar comandos IF. 
é melhor não fazé-lo. 

4) No Apple o comando NEW apaga toda a memória 
(de programa e de variáveis), CLEAR apaga as variáveis 
e HOME apaga a tela. Isto é, HOME corresponde aos 
CLS no TX. 

5) Não existe o comando EDIT no Apple, para modi- 
ficar uma linha de programa usamos o modo ESC. 

6) Embora também existem os comandos PEEK e 
POKE no Apple, e eles executem a mesma ação que no 
TK, os efeitos não são os mesmos no Apple, pois como 
você talvez já saiba, os efeitos dos PEEK's e POKE's de- 
pendem muito do Hardware de cada computador e co- 
mo já foi mostrado, os dois são bem diferentes neste 
ponto. 

7) O Applesoft não verifica linhas de programa quan- 
do de sua entrada, portanto os erros de sintaxe só são 
detectados quando rodamos o programa. Uma lingua- 
gem alternativa para o Apple, é que geralmente vem com 
a unidade de disco é o Integer BASIC, que verifica a sin- 
taxe de cada linha na sua entrada, como o TK, mas, em 
compensação não trabalha com números reais, apenas 
inteiros, como o nome já diz. 


. THEN, 


continua 
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8) No Applesoft não há necessidade de se dimensio- 
nar uma variável 'string' antes de guardar caracteres nela. 
Por exemplo, enquanto, que no TK fariamos: 


1 DIM 93125) A 
a LET AE="ABCDEFGHIJKLMNOPORS 


TUUVIXYZ 


No Apple basta fazer: " 
| A$="ABCDEFGHIJKLMNOPORSTUVNKYZ" 


Podemos no Apple também fazer matrizes “string”, 
e nesse caso, cada elemento da matriz pode assumir um 
“string” inteiro. 

Exemplo: 1 DIM AS(16,16) 
2 A$(1,2)="MEU NOME” 
3 AS(1,3)="E” APPLE" 
4 A$(4,5)="SEU NOME" 
5 A$(8,9)="E” JOAO" 


TATUZÃO 


Esse pequeno jogo tem como finalidade, além de en- 
treter, introduzir o leitor “as possibilidades gráficas do 
APPLE Il, e ensinar algumas técnicas para facilitar o de- 
senho e sua movimentação. 

Nesse jogo o computador esconde um “tatu” em algum 
lugar de um terreno quadriculado de 106 por 100, e o 
jogador deve tentar adivinhar a posição do 'tatu” até en- 
contrá-lo. 

Após cada tentativa o computador informa ao joga- 
dor que direção seguir para encontrar o tatu, quando o 
tatu é encontrado, ele é desenhado na tela, e aparece o 
número de chutes que o jogador usou para achar o tatu. 
O computador então pergunta se quer jogar de novo. 

Para se achar o “tatu” nesse jogo é preciso conhecer 
duas coisas: os pontos cardeais e colaterais, e sistema de 
coordenadas x, y. 

E assim que o campo quadriculado está organizado 
nesse jogo: 


(99,99) 


e 
a 
, 
; 
: 
. 
1 
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O centro do quadriculado é o 50,50. Você deve ir 
chutando as coordenadas de acordo com as indicações 
do computador. Só na primeira vez é que não há indica- 
ção nenhuma. Lembre-se que devemos sempre entrar o 
X antes do Y (é só lembrar da velha aula da geometria). 

Obviamente esse programa não oferece a animação de 
um “defender” ou 'commander”, mas em compensação 
pode ser facilmente entendido (acompanhe os 
REMARKS). 

A princípio da técnica para se poder desenhar e mo- 
ver facilmente uma figura é a seguinte: 

Guardamos os dados necessários para o desenho da fi- 
gura numa matriz (linha 1000). Todos esses dados são re- 
lativos a uma posição, no caso o centro da figura. Após 
determinarmos o ponto onde queremos que fique o cen- 
tro da figura (variáveis XP e YP) executamos a subrotina 
540 (ou 580, se for para desenhar o 'tatu'). Essa subro- 
tina lê os dados da matriz respectiva, e desenha. Na ver- 
dade cada dado para desenho consiste de quatro núme- 
ros, pois como você já deve ter notado essa matriz exe- 
cuta um HPLOT de um ponto a outro. À técnica de exe- 
cutar HPLOT's de um ponto a outro é bem mais rápida 
e exige bem menos dados nos.comandos DATA do gra- 
var cada ponto do desenho na matriz. Para se apagar 
uma figura, simplesmente a redesenhamos na mesma po- 
sição, só que em preto. 

Essa técnica é bem geral e se aplica a muitos compu- 
tadores, só que no caso de não ser possível o recurso de 
desenhar uma linha de um ponto a outro, deve-se guar- 
dar todos os pontos do desenho (relativos a algum refe- 
rencial), e trocar a linha 540 para: 


48 FORI=1TOTHSTEPZ: 
HPLOT XP + PHZCI + 1),YP + PHZCI): 
NEXT 1: 
RETURN 


O uso de matrizes inteiras se justifica por essas usarem 
bem menos memória do que usariam matrizes de ponto 
flutuante. 

Nas próximas publicações veremos métodos especiais 
do APPLE para desenhar e fazer animações de figuras, 
tão rápidos como os jogos de fliperama que você conhe- 
ce. Aguarde... 


== doa Dica 


6 REM 488 TATUZAO 444 276 REM DO TAI 518 REM SUBROTINA QUE DESENHA 
280 REM E DESENHAR O TATU 526 REM O HOMEM EM RELACAO 
31983 POR DENTRO DO APPLE 298 XP = XP + 15:YP = YP + 15: GOSUB 536 REM AO PONTO XP,YP 


18 REM DIMENSIONAR AS MATRIZES 


388 


588: REM DESENHA O TATU 
GOTO 458 





248 


FOR 1 =1 TO TH STEP 4: HPLOT 
XP + PHICI + 1),YP + PHICI) TO 


28 REM PTZ --> PONTOS DO TATU 318 REM INICIO DE COMPARACDES XP + PHLCI + 3),YP + PHLII + 
38 REM PHZ --> PONTOS DO HOMEM 326 REM PARA DETERMINAR QUE 2): NEXT 1: RETURN 
49 REM A$ --> DIRECDES 338 REM DIRECAO ESTA O TATU 558 REM SUBROTINA PARA DESENHAR 
59 DIM PTX(208),PHL(200) 348 IF (X=XT) AND (Y < YT) THEN 540 REM O TATU EM RELACAO 
68 REM LER MATRIZES DE PONTOS = 4; GOTO 446 578 REM AQ PONTO XP,YP 
78 REM DO HOMEM E DO TATU 358 TF 6X = AT) AND (Y > VT) THEN 588 FORI=1 TO TT STEP A: HPLOT 
88 REM TT --> TAMANHO DO TATU J = 1: GOTO 446 XP + PTXCI + 1),YP + PTZCI) TO 
98 REM TH --> TAMANHO DO HOMEM 3658 IF (X< XT) AND CY = NT) THEN XP + PILII + 3),YP + PTLII + 
186 READ TI,TH: FOR 1 =1 TO TT: J=7: GOTO 446 2): NEXT 1: RETURN 
READ PTZSI): NEXT 1: FOR I = 376 IF (X > XT) AND (Y = YT) THEN 598 DATA 48,132: REM NUMEROS 
L TO TH: READ PHLCI): NEXT 1 3 = 8: GOTO 446 DE DADOS PARA DESENHAR TATU 
: FORT =1 TO 6: READ ASCI) 386 IF 4X) KT) AND CY > VT) THEN E HOMEM 
: NEXT J=3: GOTO 440 b88 REM BLOCO DE DADOS PARA 
116 REM GERAR AS COORDENADAS X,Y 398 TF 4X) XT) AND (Y 4 VT) TREN 618 REM DESENHO DO TATU 
= 6: GOTO 448 528 DATA -4,-2,-4,2,-3,-3,-3,3, 
126 REM DA POSICAO DO TATU 490 IF (X< XT) AND CY « YT) THEN -2,-4,-2,8,=1,-8,-1,5,-3,-6, 
138 REM E INICIALIZAR CONTADOR ) = 5: GOTO 446 -2,-6,0,-10,0,6,1,-11,1,7,2, 
148 TEXT: HOME: HER SIT = INT 410 IF X< XT) AND (Y > YT) THEN -6,2,8,3,-4,3,-3,3,3,3,4,4,- 
CRND (1) & 100);YT = INTO = 2: GOTO 440 5,4,-4,4,2,4,3 
RND (1) £ 100):K = 8 420 REM IMPRESSAO DAS 438 REM BLOCO DE DADOS PARA 
156 REM POSICIONAR CURSOR E 438 REM ORINTACOES AO JOGADOR 648 REM DESENHO DO HOMEM 
168 REM GERAR XP,YP INICIAIS 440 HOME ; VTAB 21: PRINT "VOCÊ 550 DATA  -15,-3,-15,2,-14,74, 
178 REM PARA EVITAR ERRO ESTA EM *5X5","599 - Yi PRINT -14,3,-13,-5,-13,4,-12,-4,-1 
IB8 VTAB 22:XP = S6:YP = 59 "VA PARA "sAS(U): FORT = TO 2,3,-11,-3,-11,2,-19,-3,-16, 
198 REM ENTRAR NOVA POSICAO 568: NEXT : GOTO 238 2,-9,-1,-9,0,-8,-1,78,8,-7,- 
266 REM DO HOMEM, APAGAR À VELHA 458 PRINT "QUER JOGAR DE NOVO ? 4,-7,3,-6,-6,-6,5 
218 REM DESENHAR À NOVA ,E (S/N) *;3 INPUT *ºR$: TF LEFTS 660 DATA -5,-7,3,-7,-5,-6,3,-6, 
228 REM INCREMENTAR CONTADOR (R$,1) = "5º THEN 146 -5,5,8,18,-5,6,1,12,-5,-4,75 
238 INPUT “ENTRE X E Y (DE GAS 468 TEXT : HOME : VTAB 5: PRINT 13,-4,-4,-4,3,73,-4,73,3,72, 
D lk=K+ly=99- TAB( 5)"FOI UM PRAZER": VTAB -4,-2,3,-1,-4,-1,3,8,-4,8,3, 
Y: HCOLOR= 6: GOSUB 548: XP = 16: PRINT TAB( 15) "JOGAR CO 1,-4,1,3,2,-4,2,3,3,74,3,3,4 
X12+ MB: YP = Y + 38: HCOLOR= MK VOCE": VTAB 15: PRINT TAB( 54,4,3 
3: GOSUB 549; IF NOT ((X = 25) "APPLE 11º 678 DATA 5,-4,12,-4,9,73,12,73, 
XT) AND (Y = YT)) GOTO 346 4768 COLOR= 16: HLIN 0,39 AT 6: VLIN 5,-2,12,-2,5,1,12,1,5,2,12,2 
20 HOME : VTAB 22: PRINT “PARAR 8,47 AT 39: HLIN 0,39 AT 46: 15,3, 12,3,18,15,8,17,9,17,7, 
ENS VOCE ACHOU O TATU *: PRINT VLIN 0,47 AT 6 19,6,19,5,26 
"EM “sKs* VEZES": PRINT 488 REM ESPERAR POR UMA TECLA 586 REM DIRECOES A SEGUIR 
256 REM DETERMINAR OS PONTOS 496 IF PEEK ( - 163584) < 128 THEN 698 DATA NORTE, NORDESTE, NORDEST 
268 REM PARA DESENHO RELATIVO 498 E, SUL, SUDESTE, SUDOESTE, LESTE 
580 POKE - 16368,6: HOME : END , DESTE 
CALENDÁRIO PERPETUO mo “Em que dia da semana vai cair o Natal no ano 


SS 


Quantas vezes acontece de precisarmos de um calen- 
dário antigo, de alguns anos ou mesmo meses atrás e, 
por um motivo qualquer, não encontrarmos nenhum 
por perto? Quem nunca perguntou a si mesmo algo co- 


que vem?” O programa que apresentamos este mês pre- 
tende auxiliar os leitores que já tiveram uma dúvida co- 
mo essa, permitindo-lhes ver, na tela do seu compu- 
tador, o calendário completo de qualquer mês e ano, e | 
também servir de base para quem quiser aplicar algumas 

das técnicas básicas usadas no programa. 


continua 
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8 REM 44 CALENDARIO PERPETUO 48 


REM ANO BISSEXTO? 
IF MES = 2 AND INT (ANO / 4) ç 
= ANO / 4 THEN NDIAS = 29 
78 REM CALCULAR EM QUE DIA CAI 
O PRIMEIRO DO MES. 
8=DOMINGS, 1I=SEGUNDA... 
IF MES < 3 THEN MES = MES + 1 
Z:ANO = ANO - 1 
MO N=1+24MES+ INT(64( 196 
MES + 1)) + ANO + INT (ANO / 198 
INT (ANO / 108) + INT 288 
(ANO / 408) + 2:N = 
INT(N/7)47+. 218 
9): IFN=O THENN=7 226 


91983 POR DENTRO DO APPLE 


18 HOME : VTAB 5: HTAB 16: PRINT 
"CALENDARIO PERPETUO" 88 
28 INVERSE : VTAB 23: PRINT TAB( 


7); "DIGITE "0,8' PARA TERMIN 
AR"; TAB( 41);: NORMAL 
58 VTAB 12: HTAB 1: PRINT "DIGIT 
E O MES E O ANO, SEPARADOS P 
OR UMA": VTAB 14; INPUT "VIR 
GULA (EXEMPLO: 6,1965): * 
MES, ANO: IF MES = 0 AND ANO 
= 6 THEN HOME : END 
46 RESTORE : FOR I = 1 TO MES: READ 
MES$,NDIAS: NEXT I:MES$ = ME 
98 +" * + STR$ (ANO) 


y)- 
[7- 


16 N=N-1 


O programa começa pedindo o mês e o ano e pro- 
curando, através do “loop” da linha 40, o nome do mês 
e o número de dias neste. No caso de se tratar do mês de 
fevereiro de um ano bissexto (divisível por quatro), o 
número de dias é corrigido para 29. A rotina definida 
pelas linhas 80 a 100 fazem o cálculo do dia da semana 
em que começa o mês em questão. 


CHEGA DE . 
ESQUENTAÇÃO 


pronto para ser usado. 

Programas de uso pessoal ou estritamente profissional; 

Cadastros, Banco de Dados, Locações, Contabilidade, Contas a Pagar 
e Receber, Editor de Texto, Conta Bancária, Mala Direta, Visicalc, 
Controle de Estoque. 

E para o programador; Editor Assembler, Compiladores Basic e Cobol... 
. e jogos, que ninguém é de ferro. 

Todos em português, gravados em cassettg ou diskette, com manual do 
usuáno, extremamente práticos. 

Estamos ao seu alcance. 

Confira. Solicitando por telefone ou no revendedor de sua cidade, relação 
de programas disponíveis. 


micro informática ltda. 
R. Augusta, 2690 - 2º andar - Loja 318 
Tel. (011) 852-2958 - cep 01412 - SP 


monk, b- 
o software que faz você ficar 
feliz por ter um micro. 
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118 REM MOSTRAR CALENDÁRIO 

128 HOME : COLOR= 16: HLIN 8,39 AT 
6: VLIN 0,47 AT 39: HLIN 6,3 
7 AT 46: VLIN 6,47 AT É 


138 VTAB 4: HTAB 28 - LEN (MES$ 
) / 2: PRINT MES$: VTAB 8: HTAB 
8: PRINTºD S TT Q q 

5º: PRINT 

140 DIA = 1 

158 HTAR 4 4 N + 8: PRINT DIA; 

168 DIA = DIA + 1: IF DIA > NDIAS 
THEN 288 

I7O N=N+1: IFN>6 THEN PRINT 

: PRINT:N=] 

GOTO 158 

REM ESPERAR POR UMA TECLA 

IF PEEK ( - 16384) < 128 THEN 

INT (IN 266 

POKE - 16368,8: GOTO 19 

REM DADOS DO PROGRAMA 

2358 DATA JANEIRO,31,FEVEREIRO,2 
8, MARCO, 31,ABRIL,39,MAIO,31, 
JUNHO, 39, JULHO, 31, AGOSTO, 31, 
SETEMBRO, 38, OUTUBRO, 31, NOVEM 
BRO, 39, DEZEMBRO, 31 





A linha 120 mostra uma maneira interessante (e rápi- 
da) para colocar na tela caracteres repetidos. Podemos 
obter efeitos diferentes usando outras cores, “plotando” 
em linhas pares ou ímpares ou na vertical, ou usando 
combinações de linhas adjacentes. Mais adiante, o com- 
putador entra num ciclo para colocar na tela os núme- 
ros nos seus lugares corretos. Terminando o programa, 
temos uma sequencia de duas linhas (200 e 210) que 
prendem o computador num loop até que o operador 
pressione qualquer tecla. 

Finalmente, uma dica para quem quiser usar a fór- 
mula da linha 90 em seus programas, para calcular o dia 
da semana de um dia qualquer: substitua o “1” no iní- 
cio da fórmula pela variável “DIA” (N= DIA + 2 * 
MES. . .). Não se esqueça de incluir a linha 80, que efe- 
tua um ajuste nas variáveis MÊS e ANO para os meses 
de janeiro e fevereiro. 


TWO-LINERS 


Um dos nossos amigos mais próximos é o Tio Fred 
List. E um velhinho simpático e um apaixonado hobis- 
ta em computação. Entretanto, o Apple do nosso que- 
rido tio apresenta somente (.6K bytes de memória de 
programação e necessita de alguns programas para ele. 
Eis aqui um desafio. . . Vamos ajudá-lo. 

No BASIC usado no Apple (Applesoft ou Integer) é 
permitida uma instrução de múltiplos comandos, des- 
de que eles venham separados por dois pontos: e as- 
sim, as instruções: 

18 HOME 

28 PRINT "ISTO E” UM TESTE" 
38 PRINT 

48 FORI=1TO16 

8 PRINT I;º *; 

68 NEXT I 

78 PRINT "FIM" 

88 END 


E. 


podem ser escritas em uma única linha: 


19 HOME : PRINT "ISTO E” UM TESTE": 
PRINT: FOR I=4 TOt6: PRINT I; 
“Pa NEXT 1: PRINT "FIM": END 

Entretanto, uma linha só aceita até 255 caracteres. .. 
cuidado! 

Para o desafio dos TWO-LINERS vamos estabelecer 
algumas regras: 

todos os programas devem ser escritos em Applesoft 
ou Integer BASIC e não devem ter mais que duas linhas 
de programação; 

não há limites para o número de múltiplos comandos 
ou comprimento de cada linha, desde que, evidentemen- 
te, a linha possa ser digitada diretamente pelo teclado. 

Favor enviar, para a apreciação do nosso staff, uma 
cópia legível do seu TWO-LINER. Essa cópia, que não 
será devolvida, poderá ser usada pelo departamento co- 
mo e quando o julgarmos necessário. 

Os programas serão julgados com os seguintes crité- 
rios: 

a) impacto que o programa apresenta ao rodá-lo. 

As decisões do staff do POR DENTRO DO APPLE 
são semi-finais. Tio Fred List tem a última palavra. 


PRÊMIOS: 

10 colocado: um livro sobre apples. 

2º colocado: uma foto do Corinthians 
3º ao 99 colocados: ainda não decidimos 
100 colocado: uma foto do Tio Fred List 


Eis aqui dois exemplos feitos por Mark Bachman e 
Christopher Volpe: 


| HOR: FORZ=A TO STEP.): 
FOR X = 6 TO 18 STEP .2: HCOLOR= 
SY= -184 COS(34 SOR 
(X-DA2Z+4(7-5)492) 
[2+ 58; HPLOT X 4 28 + 28 
INV 
2 HCOLOR= 6; HPLOT X 4 28 + 28 + 
LASV+TIIG+LTONS 
28 +28 +74 3,180: NEXT: NEXT 


| H$ ="S03:AD 52 CO AD Si CO Ag 
22 EA EA EA EA 26 AB FC AD 5 
6 CO A947 SE 00 00 JE 06 66 
SE 00 00 JE DO 06 JE 06 09 
SE 00 06 JE 06 06 JE 06 06 3 
E 00 00 JE 08 06 20 AB FC 4C 
dó 03 N 3036" 


2 FORI=4 TO30: PRINT "PAGINA 
UM DE TEXTO *;: NEXT : FOR 
C=1 TO LEN (H$); POKE 511 
+ C, ASC ( MIDS (H$,C,1)) + 
128: NEXT ; CALL - 144 





Iniciação ao Basic para jovens de 10 a 14 anos 
— duração 20 horas aula. 
Introdução a linguagem Basic duração 20 horas 
aula. 


DOS 500 (DISC OPERATION SYSTEM) 
Duração 30 horas aula. 

Oferecemos também, curso de Introdução a 
Linguagem Basic por correspondência. 

Turmas limitadas de 6 alunos, com atendimento 
individualizado, na qual o aluno aprende utilizan- 
do um microcomputador. 

Além dos cursos, a C.P, Systems oferece vários 
programas de jogos e aplicativos, para microcom- 
putadores como D-8000, TK82-C, CP 500 e simi- 
lares. 

Nossos preços são bem convidativos. 


C.P. SYSTEMS S/C. LTDA. 

Av. Paulista, 2.073 — conj. 1.212 — Ed. Horsa | 
CEP.: 01311 — Fone: 255-5454 

São Paulo — SP 





Já vimos os exemplos, portanto, mãos à obra e 
enviem os seus programas para: 


MICROHOBBY 
Seção: Por Dentro do Apple 
CX. POSTAL 60081 


STAFF: 


José Eduardo Moreira 
Daniel R. Falconer 


O 
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FITA DO MES 





A fita FUNÇÕES | é comercializada pela MICRON de 
São José dos Campos (av. São João, 74) e tem como 
principal finalidade a de ampliar o sistema operacional 
do TK com algumas funções adicionais extremamente 
úteis. Vem acompanhada de um manual que, se peca um 
pouco pelo aspecto gráfico, compensa isso amplamente 
pela boa didática empregada nas instruções. 

Ao ser carregado normalmente o programa já sai ro- 
dando apresentando o menu da fig. 1. 


INCUUR NO EROSRARAS 
LET L=USAR 32465 
E ELE SERA APAGADO DESTA 
LINHA ATEH O FINAL 

-—s tt = EE ES Er EE efe 
PROGRAMA: 





TNCLUA NO 
1 REM beso 
& LET Li =tUSR 3a 


os. EEST 

IMPORTANTE: LINHA i REM CONTES: 
» ESPSCOS. : = AS EI ESPAÇO. 
UtIE ai GSI1E OU Ol 


Após ler as instruções, o usuário deve digitar NEW: 
o programa se auto-carrega no último Kbyte dos 16K de 
RAM. 

Para testar a fita carregamos no computador o pro- 
grama MINI-INVASOR com o programa RENUME- 
RANDO “enganchado” no fim (publicados, ambos, no 
número 1 da MICROHOBBY). 

A primeira tarefa da fita FUNÇÕES foi a de eliminar 
o programa RENUMERANDO do fim do MINI- 
INVASOR. 

Como o programa MINI-INVASOR termina na linha 
1135 e o RENUMERANDO começa na linha 9959, bas- 
ta então acrescentar a linha 


1156 LET L=USR 524655 
e a seguir 


SOTO 1136 
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Em poucos segundos o RENUMERANDO em BASIC 
desaparece, deixando apenas o programa MINI-IN- 
VASOR. 

A seguir testamos o RENUMERANDO da própria 
fita (em ASSEMBLY). Para isso devemos acrescentar 


i REM 

2 LET L=USR 52000 

o LS! 
A linha 1 REM deve contar 4 espaços em branco. 
A seguir devemos comandar 


DOQKE IJIEGIA,N 


onde N é o incremento que queremos dar aos endereços 
da nova renumeração até 20 no máximo). Como o MINI- 
INVASOR estava renumerado de 5 em 5, alteramos para 
que o fosse de 20 em 20. 


“ORE 16526,20 


Rodamos o programinha (com RUN), obtemos a re- 


numeração desejada num tempo incrivelmente curto! 


Isso ocorre porque, ao contrário do programa RENU- 


MERANDO em BASIC que publicamos no número 1, 
este é em linguagem de máquina. Finalmente, para saber 
quantos bytes foram consumidos pelo programa basta 
digitar 

PRINT UaAR F2dIR 


Esta rotina pode ser alterada fazendo-se 


POKE agsid.a 


onde A deve assumir os seguintes valores: 


A = 20: consumo de programa, video e 
variáveis 


A = 28: idem acima mais pilha de calculador 
A = 12:só o programa (volta ao original) 


Em resumo, esta fita contém uma típica rotina “fer- 
ramenta”” extremamente útil para programadores. Sua 
utilidade ficou evidenciada quando percebemos que ela 
entrou no dia-a-dia dos nossos analistas de SOFTWARE 
aqui na redação. O 
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Nós da MICROMEGA PUBLICAÇÕES E MATE- 
RIAL DIDÁTICO LTDA,, editora da revista MICRO- 
HOBBY convidamos todos nossos leitores e assinantes 
a visitar nosso espaço na Ill Feira da Informática a se 
realizar de 17 a 23 de outubro, no Parque Anhembi, 
em São Paulo. 

Na ocasião será distribuida uma tabela-brinde espe- 
cial aos novos assinantes. Os assinantes antigos também 
poderão retirar este brinde, entregando, na feira, a eti- 
queta de endereçamento colada no envelope deste nú- 
mero 4. 

Além disso, no nosso stand vamos apresentar uma 
série de novidades para o TK: a nossa finalidade é a de 
incentivar pequenas empresas a produzir periféricos e 
acessórios para o TK, ampliando cada vez mais sua uti- 
lidade e desempenho. Vamos ter também sorteios inte- 
ressantíssimos, demonstrações de novos equipamentos 
e lançamento de livros para o TK. O 





A Memphis, empresa paulistana, líder no mercado 
de suprimentos para computadores, vem se projetando 
e se firmando há 14 anos em todo o Território Nacional. 

Com a finalidade de manter o seu maior lema “Produ- 
tos de Qualidade a Preços Justos', e para melhor aten- 
der a sua exigente clientela e a todos os seus amigos e 
habituais fornecedores, acabou de mudar sua Matriz 
para um moderno prédio situado à Av. Angélica, 35 no 
bairro de Santa Cecília, com uma área de 4.000 m?, 
contando com amplo estacionamento. 

Nesse local estarão funcionando os Departamentos 
Administrativo, Financeiro, Estoques, setor Fabril e 
também o C.P.D. (que a partir de agora agilizará ainda 
mais o atendimento aos clientes). 

O Departamento de Vendas continuará atendendo aos 
seus clientes em seus escritórios à Av. Arnolfo de Azeve- 
do, 108 — Pacaembú pelo telefone 262-5577 em São 
Paulo e no Rio de Janeiro à Praia do Flamengo, 66 gru- 
po 1.519 pelos telefones 205-3849 e 225-3469. 





“Novo ABC dos Computadores” de Allan Lytel e 
Carlos Alberto M. Marques, é o mais recente lançamento 
da editora “Antenna” (C.P. 1131 — Rio de Janeiro — 
CEP: 20001). E um livro especialmente escrito para as 


L E sas 
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NOVIDADES 


pessoas que desejem ingressar no mundo da informática, 
seja com finalidades profissionais, seja para quem possua 
ou pretenda possuir um microcomputador, prestando-se 
igualmente, aos autodidatas, e, como livro auxiliar, nos 
cursos de iniciação ao Processamento de Dados. 
Compõe-se de 12 capítulos: Computadores Digitais e 
Analógicos — Números para computadores — Operações 
Aritméticas — Lógica Simbólica — Circuitos Lógicos Bá- 
sicos — Multivibradores — Contadores — Circuitos Cal- 
culadores — Circuitos Integrados — Armazenamento de 
Dados — Dispositivos de Entrada e Saída — Programa- 
ção. É redigido em linguagem acessível aos iniciantes, 
constando de 176 páginas, com bastante ilustrações, no 
formato 13,5x21 cm. É vendido nas boas livrarias ao 
preço de Cr$ 3.500,00 o exemplar. O 





A Computronix, uma loja de microcomputadores de 
Belo Horizonte está lançando o teclado profissional para 
o TK82-C e o NEZ 8000. Trata-se de caixa em madeira 
ou fibra de vidro que comporta o aparelho, a expansão 
e a fonte internamente, operando-se em teclado tipo 
IBM e um vídeo 12” por cima da caixa. Maiores infor- 
mações: fone: (031) 225-3305. O 





A MICRODIGITAL lança o TK83, versão sofisticada 
do TK82-C. Seu desempenho como computador é idên- 
tico, tendo as mesmas características operacionais de seu 
antecessor. Do ponto de vista estético, porém, ele apre- 
senta um “design” muito mais moderno e funcional. 
A nova caixa é mais resistente, tornando os circuitos in- 
ternos menos vulneráveis a pressões mecânicas. O “hard- 
ware”” foi redesenhado implicando num projeto mais ele- 
gante e compacto. 

Com esse lançamento, a MICRODIGITAL mostra to- 
da a confiança que deposita na antiga máquina, dissipan- 
do de vez os temores de “obsolência” apresentados por 
alguns usuários quando do lançamento do TK85. 

O TK82, agora 83, veio para ficar durante muito tem- 
po, ainda: a relação desempenho/custo é ainda (e parece 
que será por muito tempo) a mais elevada do mercado 
nacional. 

Num mercado com muitos “cadillacs” enfeitados, um 
“fusquinha” terá sempre uma grande aceitação, especial- 
mente numa época de economia em contenção. 

(9) 
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ANUNCIOS 


Vendo esquema completo do microcomputador 
NEZ8000 (com SLOW e expansão de memória) — 3 có- 
pias heliográficas. Cheque nominal de Cr$ 6.000,00 pa- 
ra JAN MARTIN LUND, Rua Frederico Ozanã, 16/21 — 
11100 — Santos — SP. 


Troco ou vendo programas (nacionais e importados) 
para os micros: CP-200, TK82-C e ZX 81. Possuo o Si- 
mulador de Vôo, Turbo, Galaxy e muitos outros jogos 
e aplicativos. Tratar com Eduardo Medeiros — R. Eliseu 
Guilherme, 1076 — Ribeirão Preto — SP — CEP: 14100 
— Atendo também por reembolso. 


Vendo ou troco programas de jogos para TK82-C e 
TkK85. Tratar com Edson, R. Guariba, 54 — São Paulo — 
Tel.: 918.0998 (c/ Ruth). 


RADIO MICRO: O primeiro grupo de rádio amadores 
digitais do Brasil convida todos os radioamadores a co- 
nhecer os projetos de hard e soft que estamos desenvo!l- 
vendo, aos interessados entrar em contato com PY 2-EM! 
Renato Strauss — R. Cardoso de Almeida, 654/32 — 
05013 — São Paulo — SP. 


Colocamos vídeo-reverso em televisores TX-Philips, 
fazemos adaptações de TV's para monitor de vídeo e 
vendemos kits de vídeo-reverso. Luiz Wellington — Tel.: 
224-2776 — Fortaleza/CE. 


Vendo programas nacionais e importados, 2K e 16K, 
BASIC, e ASSEMBLER para micros TK82-C e similares 
(Aceito trocas) — Carlos A. Sciaretti — Cx. Postal: 5567 
— São Paulo/SP — CEP; 01051 — tel.: 522-85886. 
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Curso de Linguagem de máquina para TK82 e TK 85 
(ASSEMBLY Z80). Aos sábados das 9:00 às 13:00 hs. 
— São Paulo — Fone: 813-4555 (Márcia) à tarde. 


Serviço de Datilografia — IBM. Teses, apostilas e ma- 
nuais técnicos. Telefone: 258-8486 — Américo — SP. 


Conversor do NEZ8000 para SLOW: Em São Paulo, 
WILSON DE ASSIS faz a inclusão desta função no 
NEZ8000 por Cr$ 20.000,00 (mais as despesas de em- 
balagem e correio) e dá a garantia de 6 meses. Se o seu 
endereço for próximo ao dele, ele entregará em casa. 
O seu telefone é: (011) 203-7967 e o endereço: Rua 
Fabrício Correia, 145, Tucuruvi, 02311 — São Paulo — 
SP. 


Sou possuidor de muitos programas para o TK82. Os 
interessados em trocá-los escrevam para Marco Aurélio 
Dias de Oliveira — Av. Afonso Pena, 1557 — Bloco B — 
apto. 214 — Campo Grande/MS — CEP: 79100. 


Troca de programas para TK — Carlos Horácio C. 
Fontenelle — R. Alfeu Aboim, 770 — Aldeota — Forta- 
leza — CE — CEP; 60000 


ESPIÃO — Jogo de Aventura para TK e CP-200. Um 
desafio a sua Memória e Habilidade. 16K com SLOW. 
Cr$ 5.000,00. Pedidos pelo reembolso para Cx. Postal: 
28 — 27200 — Piraí — RJ. 


Vendo NEZ 8000 com expansão de 16K — Tenente 
Dilson — Tel.: (061) 224-1839 — Brasília — DF. O 
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[COMO COLABORAR 
COM MICROHOBBY 


aos - 


A revista MICROHOBBY foi criada para servir de in- 
tercâmbio entre os leitores que participam do mágico 
mundo da computação. 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 
ções, recebendo remuneração a título de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicação, 
a remuneração será de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
será aumentada, a critério da redação, até Cr$ 30.000,00. 
Esta remuneração será oferecida também para artigos 
interessantes sobre o mundo do TK. 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece às seguintes normas: 


1) Nunca esquecer de colocar nome completo, endereço 
e numero de sua assinatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me- 
lhor ainda, tirada na impressora do TK, 

3) Colocar sempre uma linha REM com o nome do autor 
e o título do programa. 

4) Enviar uma fita com o programa gravado algumas ve- 
zes (se possível em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instruções Uteis, nome completo e endereço do reme- 
tente. 

















GERAÇÃO HUMANA NO TK 


Antes que o leitor se assuste com visões tipo “Admi- 
rável Mundo Novo" pedimos a leitura da parte final da 
carta que o Roberto R. Malcher de Óbidos (Pará) enviou 
à Seção DESGRILANDO. 

A proposta, pelo que pudemos entender, consiste 
basicamente em se tentar estabelecer uma correlação en- 
tre data de nascimento da mãe, dos filhos e o sexo 
destes. 

Para quem achar absurdo, queremos lembrar que há 
alguns anos foi realizada na França uma pesquisa que 
tentava correlacionar o Q.l. de crianças com outros fato- 
res. Verificou-se uma correlação estatisticamente signifi- 
cativa entre o Q.l. e a época do nascimento: crianças 
nascidas no começo do inverno tinham um desenvolvi- 
mento intelectual significativamente superior. Foram le- 
vantadas muitas hipóteses (chegou-se até o absurdo de 
se falar em horóscopo!). A explicação na realidade é 
bem simples: no inverno europeu os pais ficam mais 
tempo em casa e essa maior convivência é tremendamen- 


te importante para o futuro desenvolvimento mental do 
bebê 


Por isso pedimos a todos os leitores que tirem uma 
xerox da tabela anexa (para não recortar a revista) e a 
enviem preenchida para: 





AS | 







4 


= 
e" a 


O material não utilizado não será devolvido. Esta é 
uma norma corrente em quase todas as revistas do mun- 
do, que gera porém, uma certa desconfiança: “e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?” 

Neste ponto podemos sugerir o seguinte: 

Ão enviar o material para qualquer revista, você, ou 
confia em sua seriedade, ou, é melhor não enviar o ma- 
terial, reservando-o para uma publicação digna de seu 
crédito. 

Uma outra saída é a de tirar uma cópia de todo ma- 
terial enviado e registrá-lo em cartório, para qualquer 
reclamação posterior. Obviamente tal procedimento só é 
aconselhável se o material enviado for valioso a ponto de 
justificar toda essa mão-de-obra. 


6) O material deve ser enviado para: 


MICROMEGA PM.D. Ltda. 
PROGRAMAS DO LEITOR 
Cx. POSTAL: 60081 

CEP: 05096 — S. PAULO — SP 


7) Qualquer dúvida, poderá ser esclarecida pelo telefone: 


(011) 257-5767 com Roberto. 
Aguardamos sua colaboração. 





C.R.M. 
CP 43 
68250 Óbidos PA 


Pesquisa Geração Humana 














Nasc.: Dia Mês. Ano 









Mãe 






















19 Filho 






29 Filho 






39 Filho 









da AE 






59 Filho 





69 Filho 












Obs.: Incluir eventuais filhos falecidos ou abortos. 


O 
MICROHOBBY 33 | 








come moedas fazendo uma lamentável confusão entre 
O aa | ASMA plano espiritual e plano material. 

Para se movimentar no salão (tenebroso) do castelo 
você deve usar as teclas 5, 6, 7 e 8 ou o módulo de co- 
mando (Joystick). 

Ao ter sua alma congelada pelo fantasma, aparecerá 
a quantia coletada. 


180 LET S=êB 

es CLS 

38 INPUT A 

+ LET Q=1 

SO LET UW=2 

69 LET R=INT (RND&7) +12 

0 LET E=INT (RNDX7) +34 

88 FOR F=i TO 28 

S2 PRINT 
188 NEXT F 
118 IF INKEYg$g="'P“ THEN GOTO 26 
120 PRINT AT O.uU:ca” 

138 IF PEEK (PEEK 16395+256+PEEÉE 
&€ 16399) =155 THEN GOSUB 250 

140 LET 0=0+ (INKEY $="6" AND 9<8B 





“s 





-eepor ISO LET SG ads (ONREV ALL AND uco 
ocê está no tenebroso salão de um castelo mal- =U+ (INKEY$&="5" 4D I< 
. | od E | > TINKEY$="S" AND U>1) 
assombrado. Você conseguiu achar um tesouro e as moe- 168 IF Q=R AND U-=E THEN Goro 26 
das estão espalhadas no chão. Antes que o fantasma do no e EMDES THBA CEO STA 
castelo gele sua alma pecadora, você deve catar a maior 188 PRINT AT R,E;CHR$ 11 
quantidade possível de moedas (as da moldura não 1980 IF PEEK (PEEK 16398+256+PEE 
podem ser recolhidas). K ad ui OR 155 THEN PRINT A 
Após digitar RUN você deve escolher o grau de difi- 200 LET R=R+(05R) -(0<R) 
culdade, entre .01 (difícil) e .99 (fácil). ela LET E=E+CJSE) -(<E) 
2208 GOTO 118 
O programa roda usando menos de 1K de RAM em 230 LET S=5+1 
SLOW 240 PRINT AT O.U:"Er 
2590 RETURN 
O fantasma é um pouco gagá e, enquanto o persegue, 260 PRINT 5 
O que você 
deve fazer para 
realmente 


entender de micros? 


Uma assinatura de 
MicroMundo. 





não Certificado especial de assinatura 


SIM desejo receber 12 edições do MicroMundo (um ano) 


Veja só o que você FF 
encontra em cada 
exemplar de 
MicroMundo: 
Notícias... Dicas de 
Compra... Benchmark 
(análise e testes de 
equipamentos)... 
Lançamentos de 
Hardware e Software... 
Análise de Software... 
Fontes (programas 
para todos os tipos 
de micros)... Técnicas 
& Técnicos (macetes 
clássicos em Cobol)... 


CP/M & Cia... | CEP Cidade Estado 
e mais, muito mais. 





Nome 





Cargo... ain — — Empresa 


Endereço Tel.: 








O endereço acima é O meu endereço particular Envio anexo cheque nominal a 


Micro Mundo no valor de 
imarque com um X1 O endereço de minha empresa Cr$ 7.200,00 


Faça como quem 
entende - assine 


MicroMundo. 


CWB - Computerworld do Brasil, Serviços e Publicações Ltda. 
Rio: Rua Alcindo Guanabara, 25/10º and CEP 20091 Tel (021) 2408225 . Tetex 21-30838 Word BR 
São Paulo Rua Caçapava 79 Jardim Paulista CEP 01408 Tel (0111 8816844 - Tolex 1132017 Word BR 
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3 201111141 900981210. «126111016. 
aula 3 14 0111101006 110611091011 6210811110 
ANDAS 1DDLILILI 418081' aoLo gojar” “191180 
.02181” 31106 1190% 9110 1018 
a260017 1D1DBL 1219' 129988) 10221 
41114108" 3012119110" 00106 291€€ 
2019009' “20909882 1 -. 1H99€ 1190€ 
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191118 61144" 2111 19016 1BD1L 
Es Stós. 2090 Oiii, afôis 
E sesldiga PICEL. À + é - 
o GL IOGIO "UBODOL1S019F “6111181089 
39901990000101 “1191811119 11129913 





Flavio Rossini 


O PROGRAMA HEXAMEM: ONDE COLOCAR OS 
PROGRAMAS EM LINGUAGEM DE MÁQUINA 

Um bom lugar para colocar os programas em lingua- 
gem de máquina é no fim da memória RAM pois, como 
já dissemos, o início da memória RAM é reservada para 
colocar as variáveis do programa interpretador, o progra- 
ma BASIC e suas variáveis e a tela de TV (Veja pág. 23). 
Entre as variáveis do programa interpretador está uma 
chamada RAMTOP que indica o fim da memória do 
computador, ou seja, nos registros da memória corres- 
pondentes à essa variável o programa interpretador colo- 
ca o endereço que seria do byte imediatamente após o 


EM OUTUBRO 


IOPLAK: Placa In/Out, transforma o seu TK numa 
central de comando programado, com 8 entradas 
e saídas. Controla relês, motores, trenzinhos 
elétricos, etc. 


BIPLAK: Placa Bip, assegura teclagem correta por 
aviso sonoro. Pode ser programada para assinalar 
passagens de jogos, ações de programas e muito 
mais. 


CARAPLAK: Placa de Caracteres, produz os 


último byte de memória. Esta variável está colocada nos 
endereços 16388 e 16389, pois sendo ela um endereço, 
tem 16 bits devendo então ser “quebrada” em duas par- 
tes para poder ser armazenada, armazenando-se antes O 
byte MENOS significativo (esta regra é usada para todos 
os dados de 16 bits!). Assim digite: 


PRINT PEEK 16388 + (256 * PEEK 16389) 
(NEW LINE) 


(Consulte a aula 1 em caso de dúvida) 

Você obtém o valor de RAMTOP que dependerá de 
quanta memória você tem disponível. Se você tiver a 
expansão de 16K (suposição que será válida para todo o 
curso) deverá obter: 


RAMTOP = 32768 ('8000' em hexadecimal) 
o que significa que o endereço do último byte da memó- 
ria é 32767 ('7FFF' em hexadecimal). 

Vamos, então, “enganar” o computador e modificar 
o valor esta variável com o intuito de reservar o fim da 
memória RAM para lá colocarmos os programas em lin- 
guagem de máquina, sem prejudicar o resto da memória. 

Por exemplo, façamos RAMTOP = 30000 ('77530' em 
hexadecimal), lembrando que devemos colocar antes o 
byte menos significativo ('30). Digite: 


POKE 16388,48 (48 = '3)' em hexadecimal) 
(NEW LINE) 
POKE 16389,117(117 = '75' em hexadecimal) 


grafismos que V. quer e os introduz em qualquer (NEW LINE) 
programa. E um sucesso na microcomputação dos NEW 
E.U.A. e da Europa. 

á (NEW LINE) 


Escreva hoje mesmo, informando qual é a placa 
TplaK do seu interesse, para receber informações 
mais detalhadas. Isso lhe assegura um brinde 
especial, que V. receberá depois, quando fizer sua 
encomenda. 


INFORMAÇÕES TPLAK 
AIC R.G. 

Rua João Ramalho, 1276 
CEP 05008 São Paulo SP 


Envie sua carta para: 





o que corresponde a fazer 
RAMTOP = 256 * 117 + 48 = 30000 


(verifique isto usando novamente a função PEEK para 
obter o valor de RAMTOP). 

Deste modo você reservou a memória 3000M até 
327067 para colocar seus programas no computador, suas 
variáveis e o conteúdo da tela de TV NUNCA irão inva- 
dir esta região por “pensar” que a memória termina no 

continua 
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LANÇAMENTO 


PASSAGEM PARA O INFINITO 


Bensacional jogo onde você tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terriveis polvos monstros, e com mais de 400 pas 
sos. Para ajudá-lo. você contará com algumas espadas, que garantirão sua sobrev!- 
vência na luta com os monstros, e com os prisioneiros encarcerados nas várias pas 
sagens que lhe indicarão o caminho a seguir Totalmente em linguagem de máquina 
com gráficos fantasticamente animados e três niveis de dificuldade para desafiá-lo 


Preço Cr$ 7 000.00 
MIDWAY 


Uma grande guerra mundial está sendo travada nas águas do Atlântico Você agora é 
o comandante do submarino atômico MIDWAY, sua missão destruir todas as bases 
inimigas em águas brasileiras Cuidado com os navios, aviões e minas espalhados pe- 
los invasores Para auxiliá-lo poderá contar com uma frota de navios de reabastec! 
mento, várias bases aliadas e um computador de bordo Um grande desafio com grá- 
ficos e várias rotinas em linguagem de máquina Preço Cr$ 5 000,00 


JORNADA NAS ESTRELAS ——— 
A sua nave interplanetária ENTREPRISE necessita livrar a galáxia dos invasores 
Klingon. e você, como comandante da nave. terá a árdua missão de destruíi los Um 
jogo famoso no mundo todo em uma de suas melhores versões pela Softkristian, com 
efeitos gráficos sensacionais Preço Cr$ 5 000.00 


2: DIMENSÃO 
Agora você já pode ter um fliperama em seu microcomputador em2* DIMENSÃO dois 
jogos agitadissimos para testar sua coordenação motora Em SPACE INVADER você 
tem os originais invasores atacandosua naveeem ASTEROID vocêdeve pousarem um 
planeta e, para tanto deverá ultrapassar os obstáculos que vôem à sua frente tentando 
destruí-lo Grandes jogos em linguagem de máquina Preço Cr$ 5 000,00 


VISITA AO CASSINO 


Quatro grandes jogos em um sô caça níqueis, roleta, 21, e perseguição fata! fazem 
parte deste sensacional conjunto Todos os jogos com gráficos e rotinas em linguagem 
de máquina, para você que gosta de apostar e torcer Preço: Cr$ 5 000.00 


10 JOGOS EXCITANTES PARA 1 K 


Dez pequenos jogos para você incrementar e aprender bastante os efeitos de progra 

mação de jogos e trabalhos com vídeo Se você não dispõe da expansão de 18K já pode- 
rá ter entretenimento com esta sensacional fita Se você já dispõe de 16K compre para 
incrementá-los e terá excelentes jogos Preço Cr$ 4 000,00 


Keistiso 
LETRONICA LT 
Rua da Lapa, 120 grupo 505 
Tels.. 252-9057 -. 232-5948 


CEP 20021 - Rio de Janeiro RJ 


Todas as fitas vão em embalagem lacrada, com gravação profissional, para sua garan- 
tia. A Kristian trocará qualquer fita que seja enviada, com defeitos de fabricação 





































Compre conosco de cualquer parte dy Brasil sem 
dESpESaS adicionais enviando um cheque cruza 
do e nominal a KRISTIAN ELETRÔNICA Liga indo 
precisa visar) E garanta O recenimento de nosso 
informativo NOVIDADES KRISTIAN Iotaimente 
gratuito 


endereço 29999 ('752F' em hexadecimal). Note, toda- 
via, que esta região NÃO será afetada pelo comando 
NEW e não pode ser passada para a fita através do co- 
mando SAVE. Esta última limitação é desagradável e 
mais adiante veremos como contorná-la. 

(OBS.: caso você não tenha expansão de memória use: 


POKE 16388,173 
POKE 16389,67 
NEW 


para reservar a região de 17325 a 18431). 

Vamos, a seguir, apresentar um programa em BASIC 
que coloca na memória RAM um programa em lingua- 
gem de máquina elaborada em códigos hexadecimais a 
partir de um endereço inicial fornecido por você. Lem- 
bre-se de reservar espaço no fim da memória antes de 
colocar o programa: 


POKE 16388,48 (NEW LINE) 
POKE 16389,117 (NEW LINE) 
NEW (NEW LINE) 


A seguir coloque HEXAMEM no computador e vamos 
introduzir alguns códigos hexadecimais (que por 
enquanto não significam NADA) dentro do compu- 
tador! Cada código deve ser seguido de NEW LINE, e o 
programa termina ao introduzir-se a letra P (PARE). 
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PROG. 1.1: HEXAMEM. 


à REM FLRBUIO ROSSINI 

Ss REM HEXSAMERM 

18 FAST 

15 PORE 16385.45 

Ss PORE 16559.117 

es PRINT “ESCOLHA O ENDERECO JI 
NICIAL DA 

320 PRINT “MEMORIA t>=392D008) “ 

38 INPIST IN 

às PRINT 
0 PRINT “MEMORIA INICIAL ="; 

SO LET EINI=IN 

SS LET Ag="" 

ES SCROLL 

OS PRINT “MEM. *; IN; 

0 IF QGã=]º" THEN INPUT As 

75 IF Qã=º"P' THEN STOP 

596 IF Ag="'XS" THEN GOTO 213090 

BS IF Agã='XF" THEN GOTO 8135 

98 LET AULX=16*CODE Ag+CODE AS ( 
nes 


fas É doa (16 *CODE A$&+COD 


T AG(2) -476 


198 GOSUB D2BO 

105 PRINT TAB 153:C&;B$; TRB 24;R 
&t TO BI: TAB (Si-LEN X$);X& 

110 POKE IN.AUX 

115 LET IN=IN+1 

1260 LET Ag=A$(S TO |? 

125 GOTO 8066 

150 StLOU 

155 CLS 

140 PRINT AT S.B;USR INI 

145 STOP 

200 LET I=4 

205 GOSUB 0590 

210 LET I=2 

215 LET C$=5$ 

226 GOSUB 9500 

225 RETURN 

500 IF AQA$&tI)="'0" THEN LET B$="“Q 
aEOs IF GE ="1" THEN LET B$="Q 
ação IF Ag(D ="2" THEN LET B$&="R 
6718 IF A&tIj="5" THEN LET B$4="0 
1520 TF AR&C(II="4“ THEN LET B$="6 
ses IF A&(i="5" THEN LET B$="G 
19 “+. 

1520 TE A$E(I)="6" THEN LET B$="Q 
(535 IF A$tI)="7" THEN LET B$="0 
RS. IF AS(I)="'S THEN LET B$="“12 
aEás IF Q$S11="'9" THEN LET B$="1 
Ra IF A&(I)="A” THEN LET B$="“4 
2588 IF Agti)="B" THEN LET B$="4 
, 280 IF A$LI)="C” THEN LET B$="5 
1585 IF QR&LI)="“D" THEN LET B$&="4 
1558 IF A$&(D) ="E” THEN LET B$="1 
1978 IF AgtD=“Fº THEN LET Bg="2 
+ “+ 

SEO RETURN 

TES STCP 

GOO SAVE "“HEXAHMERB” 

610 PRINT “DIGITE BRENK E LIST“ 
E2B PAUSE 300 

E30D GOTO 580 


e a RS esa e ei o O pm a d 





: 


RR 


; 


E 


ALIF E 


VERBATIM “ 


E — : 










PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 

DE GARANTIA E O MELHOR 
PREÇO DO MERCADO. 


ENTREGA IMEDIATA 














DATALIFE ” diskettes são produzidos com uma unica simples face/simples densidade 
preocupação: o armazenamento de dados sem erros, 26 setores - 128 bytes/setor 8 polegadas 
Esse comprometimento requer precisas têcnicas ED 34-8000 simples race dupla densidade 
é é a Renas Rae gos A Não setorizado - não formatado 8 polegadas 
de produção e rigoroso controle de qualidade. REP gs 
' pa APPA uUpia Iace/ Gupia censigade 
DATALIFE E diskettes o OU o 1/4 polegadas tem DU 34-4026 2 ada 6 dad ar a 8 polegadas 
certificação 100% sem ErTOS. | dupla face/ dupla densidade - Não setorizado 
A diferença DATALIFE * é pura e simplesmente qualidade. não formatado 8 polegadas 
Entrega a partir de setembro 1.983 
NÁR Eaé: Simples face/ dupla densidade 
VD 52501 | 51/4 polegadas 
MD 550-01 dupla face/ dupla densidade 5 1/4 polegadas 
Em embalagem de cartão com 10 unidades 
Caixas plásticas Opcionais 
PARA ENCOMENDAS FORA DE SÃO PAULO, 
Revendedores e Fabricantes interessados: A MEMPHIS PAGA A LIGAÇÃO. 
tel: (011) 2602-5332 DISQUE (011) 800-8462 


Distribuidor: Ilemphis 


Indústria e Comércio Ltda. 
Av. Arnolfo de Azevedo, 108 - Pacaembu - São Paulo - Brasil 


CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angélica, 35 - Sta. Cecília - São Paulo - Brasil - CEP 01227 








ETTA 


OBS.: Se você NÃO tiver expansão de memória, substi- 
tua a linha 30 por PRINT “MEMÓRIA” (> = 17325)”, 
retire as linhas 95,100 e de 200 a 580, substituindo a li- 
nha 105 por PRINT TAB 13; Ag (TO 2); TAB 17; AUX. 

Este programa fornece, também, uma “visualização” 
da memória do computador na tela de TV da seguinte 
maneira: 


Nº DA MEM.| CONTEÚDO | CONTEÚDO | CONTEÚDO 
EM EM 


DA MEM. EM 


DECIMAL | BINÁRIO 





Experimente, então colocar alguns nOs hexadecimais 
na memória a partir do endereço 30000. Lembre-se que 
cada endereço da memória corresponde a 1 byte de da- 
dos. Portanto, você deve entrar sempre com um número 
par de dígitos hexadecimais, caso contrário, o programa 
parará na linha 99. Assim, entre, por exemplo, com o se- 
guinte: (N.L. = NEW LINE). 


RUN (N.L.) 

Memória inicial: 30000 (N.L.) 
A4 (N.L.) 
B70412 (N.L.) 
06 (N.L.) 
71FDAT (N.L.) 
OÓCE (N.L.) 
p (N.L.) 


MEM. 360090 1816901069 RS 154 
MEM. 30091 19119111 B7 183 
HEM. 3969092 928999106 4 4 
MEM. 539098053 99018918 12 15 
MEM. FSHSCOS HOSG9GHI11B SA [) 
MEM. FJBOOS 91118881 rd À E ac 
MEM. 30005 212111181 FD 253 
MEM. 398007 iBgIBDSB 1 ai 151 
MEM. 390895 2898082908 98 ag S 
MEM. 39S09 11991118 CE 20E 
MEM. SOBILG 
Com isso, você colocou estes dados da memória 


3000O até a memória 30009. Vamos verificar se o pro- 


grama funcionou. Acrescente, agora, O seguinte progra- 
ma: 


3090 REM VERMEM 

3285 SLO!U 

3210 PRINT “FIM = 2" 

SB1S INPUT FIM 

3820 FOR 1-300990 TO FIM 

3025 SCROLL 

da PRENT “MEMORIA” .T; * “PE 
3035 NEXT I 


NOTA: Se você não tiver expansão de memória, substi- 
tua a linha 3020 por: 


FOR | = 17325 TO FIM 
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PROG. 1.2: VERMEM. 





Execute-o fazendo RUN 3000 (ou GOTO 3006 ). 

Coloque para a variável FIM o valor 30009 (17334 
sem expansão), pois colocamos 10 dígitos hexadecimais 
na memória. Ao executar o programa você deverá obter 
os números previamente colocados, mas em DECIMAL! 
Portanto, teremos: 


MEMÓRIA 30000 164 (= 'A4') 
MEMÓRIA 30001 183 (= 'B7') 
MEMÓRIA 30002 4 = '04') 
MEMÓRIA 30003 18  (='12') 
MEMÓRIA 30004 6 (= '06') 
MEMÓRIA 30005 113 (= 71) 
MEMÓRIA 30006 263 (= 'FD') 
MEMÓRIA 30007 161 ="A1) 
MEMÓRIA 30008 q = *00') 
MEMÓRIA 30009 206 (= “CE') 


representação em hexadecimal; veja os códigos previamente colocados! 


repita este procedimento para outros números hexadeci- 
mais até você entender o que está acontecendo. .. 

Note que estamos apenas colocando os códigos hexa- 
decimais na memória e mesmo que esses códigos (A4, 
B7, 04, 12, etc.) significassem um programa em lingua- 
gem de máquina, providencias especiais seriam neces- 
sárias para executar o programa. 


Estes códigos podem representar um programa em 
linguagem de máquina, colocado a partir da memória 
30000. Por exemplo, o código 164 (A4 em hexadeci- 
mal) poderia significar: some os próximos dois bytes 
(183 e 4); o código 18 (12 em hexadecimal), compare 
o resultado com o próximo byte (6) e assim por 
diante... 


Note que NÃO existem endereços para as linhas de 
programa, como em BASIC, e as instruções são executa- 
das na sequência em que foram colocadas na memória. 

Com todos esses “poréns”, quais seriam, então, as 
vantagens da linguagem de máquina com relação ao 
BASIC? 


A linguagem de máquina é muito mais rápida e permi- 
te um VISUALIZAÇÃO e um CONTROLE maior do 
sistema. Em contrapartida, suas instruções são mais sim- 
ples e limitadas e exigem um cuidado maior na hora da 
programação. 





EXERCICIOS 

1. Analise o funcionamento do programa HEXAMEM, 
exceto as linhas 130, 135 e 140. 

2. Analise o funcionamento do programa VERMEM. 


| 
| 


| Início 17 de outubro 





INTENSIVÃO 





DO ANGLO 


EXATAS, BIOMÉDICAS e HUMANAS 
MANHA, TARDE e NOITE 





PEA 






conselho 


de 


Amigo 





Rua Tamandaré, 596 - Liberdade - SP 
Tel.: 279-7022 - P.A.B.X. 

Rua Sergipe, 58 - Higienópolis - SP 
Tel.: 2557-7388 e 257-7466 





Para tanto, você deverá preencher corretamente 
o cupom anexo, colocá-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA,, no 
valor de Cr$ 9.900,00 (oferta válida até 30 de 
setembro). 


O envelope deverá ser selado e endereçado à 


MICROMEGA P.M.D. LTDA. 





Caixa Postal 60081 — CEP 05096 
São Paulo — SP 





ASSINATURA 


A nossa revista não será distribuida nas bancas. 
Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e prêmios "Destina-se ao pagamento de uma assinatura 
interessantíssimos, você deverá fazer uma assinatura: (12 números) da revista MICROHOBBY " 

o preço anual da assinatura é de Cr$ 11.800,00. 
Porém, até 30 de setembro, manteremos o preço de 
Cr$ 9.900,00, com direito a uma fita inédita de jogos: 


No verso do cheque escreva: 





São Paulo (1K]) Quando este cheque for devolvido ao seu Banco 
Mansão Maluca (16) com nosso endôsso, servirá de comprovante provisório 
cujo valor comercial é superior a Cr$ 6.000,00. até que nosso recibo seja enviado pelo correio. 


(o, 


o PROGRAMA DO LEITOR: 


HORA SIDERAL 


o PROGRAMAS DO MES: 


SOMA SINTÁTICA 
TRÂNSITO 
CALEIDOSCÓPIO 


o MUITAS DICAS E 
INFORMAÇÕES 


o SEÇÃO NOVA: 


OS “OITENTAS”, 
PARA O USUÁRIO DO TK 
ENTENDER O TRS 80 
E COMPATIVEIS 
NACIONAIS. 
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A 


O a o ea m 


BASIC E 
LINGUAGEM 
DE MAQUINA 


CORPO DOCENTE: 
PROF. FABIO RENDELUCCI 


NÍVEL NÍVEL 1 | NÍVEL2A | NÍVEL 2B | NÍVEL3 T PROF. FLAVIO ROSSINI 
Núcleo PROF. FLAVIO ROSSINI 
DUL ia 


ALA. TC 


“JOGOS sa ADOLES( de orientação 
LINGUAGEM APROF. DE de lestudos 


“| DE MAQUINA | LINGUAGEM H Av. Brig. Faria Lima, 1.451 - 3º - Cj. 31 
SSEMBLY £60 | DE MAQUIN Tel.: 813-4555 - CEP 01451 - São Paulo 


Desgravador e rejuvenescedor instantâneo 
de fitas K-7 sam: passou. DESGRAVOU 


GARANTIA DE 5 ANOS. 


a Ap PRO 
à WIn UO 


* Desgrava e rejuvenesce em apenas 4 segundos, qual- 
quer fita cassete independente de sua duração, eliminan- 
do todos os ruídos e chiados decorrentes de frequentes 
regravações. 

* Poupa o desgaste da fita e do gravador. 

* Poupa tempo e melhora a qualidade do som da fita casse- 













E te na reutilização da mesma. 
3 * Gravando em cima de outra gravação, a qualidade da re- 
» produção é consideravelmente prejudicada, além de criar 
LL confusões, principalmente se a gravação anterior for de 


duração maiscurta. Desgravando com o TWIN-GO, nada 
disso acontece. 

* O TWIN-GO é indispensável a todos os profissionais e 
amadores, usuários de fitas cassete. 


Pedidos por carta à 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 - CEP 05096 - São Paulo-SP 
anexando Cheque Nominal ou Vale Postal, 

incluindo mais despesas de frete no valor 

de Cr$ 500,00, autorizando o recebimento 

7M da compra no prazo de 15 dias. 








Características Técnicas 

e Linguagem BASIC 

e 10 Kbytes de ROM. 

e 16 ou 48 Kbytes de memória 
RAM. 

e 40 teclas e 160 funções. 

e Gravação de programas em 
fita cassete comum. 

e input e Output de dados. 

e Vídeo: aparelhos de TV B&P 
ou colorido. 

s Funções especiais 
HIGH-SPEED. 

e Som Opcional. 

e Joystick, impressora. 


Preço de lançamento: 
Cr$ 229.850,00 (16K) 
Cr$ 329.850,00 (48K) 
(Preço sujeito a alteração) 


REVENDEDORES: ARACAJU 224-1310 « BELEM 222-5122/226-0518 « BELO HORIZONTE 226-6336/225-3305/225-0644/201-7555 « BLUMENAU 22-1250 + BRASÍLIA 224-2777/225-4534/226-9201/ 
226-4327/242-6344/242-5159 «e BRUSQUE 55-0675 « CAMPINAS 32-38 10/8-0822/32-4 155/2-9930 « CAMPO GRANDE 383-6487/382-5332 * CARUARU 721-1273 e CUIABA 321-8119/321-7929 « CURITI- 
BA 232-1750/224-6467/224-3422/243-1731/223-6944/233-8572/232-1196 * DIVINÓPOLIS 221-2942 * FLORIANÓPOLIS 23-1039 « FORTALEZA 226-4922/231-5249/231-0577/231-7013 « FREDERICO 
WESTPHALEN 344-1550 « GOIÂNIA 261-0333/224-0557 « IJUÍ 332-2740 « ITAJUBÁ 622-2088 « LINS 22-2428 « LONDRINA 22-4244/23-9674 « MACEIO 223-3979/221-6776 « MANAUS 237-1793 « MO- 
GI DAS CRUZES 468-3779/208-6797 « MURIARÉ 721-1593 « NATAL 222-3212/231-1055 e NITERÓI 722.6791 « NOVO HAMBURGO 93-1922/93-3800 « PELOTAS 24-5139 « PORTO ALEGRE 26-8246/ 
21-4189/24-1411/22-3151/24-0311/21-6109/24-7746 * PRESIDENTE PRUDENTE 22-2788 « RECIFE 241-4310/224-8777/224-3436/224-4327 « RESENDE 54-1664 + RIBEIRÃO PRETO 636-0586/634-4715/ 
8635-1195 « RIO DE JANEIRO 267-1093/252-2050/253-3395/264-0143/259-1516/232-5948/591-3297/222-6088/267-1339/329-4869/228-2650/246-4824/239-5612/542-3849/62-8737 « SALVADOR 248-6666/ 
235-4184/247.5717 * SANTAMARIA 221-7120 * SANTO ANDRÉ 455-4962/444-7375/454-9283 * SANTOS 4-1220/32-7045/35-1792/33-2230 *e SÃO CARLOS 71-9424 * SÃO JOÃO DA BOA VISTA 22-3336 
e SÃO JOSE DOS CAMPOS 22-3968/22-7311/22-8925/21-3135 + SÃO PAULO 853-0164/853-0448/239-4122/36-6961/61-4049/881-1149/258-3954/212-9004/282-2105/212-3888/545-4769/227-3022] 
864-8200/222-1511/259-2600/282-6609/813-4555/814-3663/826-1499/521-3779/270-7442/210-7681/813-4031 * SOROCABA 32-9988 « TAUBATÉ 31-4137 « UBERABA 333-1091 « UBERLÂNDIA 
234-8796 * VIÇOSA 891-1790/891-2258 « MARÍLIA 33-4109 





